Changeset 9656 for NEMO/trunk/src/OCE/SBC/sbcflx.F90
- Timestamp:
- 2018-05-28T11:53:14+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcflx.F90
r9598 r9656 71 71 !! - emp upward mass flux (evap. - precip.) 72 72 !! - sfx salt flux; set to zero at nit000 but possibly non-zero 73 !! if ice is present (computed in limsbc(_2).F90)73 !! if ice is present 74 74 !!---------------------------------------------------------------------- 75 75 INTEGER, INTENT(in) :: kt ! ocean time step … … 120 120 CALL fld_fill( sf, slf_i, cn_dir, 'sbc_flx', 'flux formulation for ocean surface boundary condition', 'namsbc_flx' ) 121 121 ! 122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present ; set in limsbc(_2).F90)122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present) 123 123 ! 124 124 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.