- Timestamp:
- 2012-05-25T18:43:49+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3396 r3402 118 118 !! - qsr solar heat flux 119 119 !! - emp upward mass flux (evap. - precip) 120 !! - sfx salt flux; set to zero at nit000 but possibly non-zero 121 !! if ice is present (computed in limsbc(_2).F90) 120 122 !!---------------------------------------------------------------------- 121 123 INTEGER, INTENT( in ) :: kt ! ocean time step … … 172 174 ALLOCATE( sbudyko(jpi,jpj) , stauc(jpi,jpj), STAT=ierr3 ) 173 175 IF( ierr3 > 0 ) CALL ctl_stop( 'STOP', 'sbc_blk_clio: unable to allocate arrays' ) 176 ! 177 sfx(:,:) = 0.0_wp ! salt flux; zero unless ice is present (computed in limsbc(_2).F90) 174 178 ! 175 179 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.