- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r7753 r9019 121 121 ssu_m(:,:) = ssu_m(:,:) + ub(:,:,1) 122 122 ssv_m(:,:) = ssv_m(:,:) + vb(:,:,1) 123 IF( l_useCT ) THEN ; sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) )123 IF( l_useCT ) THEN ; sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 124 124 ELSE ; sst_m(:,:) = sst_m(:,:) + zts(:,:,jp_tem) 125 125 ENDIF … … 236 236 ENDIF 237 237 ! 238 IF( .NOT. l_ssm_mean ) THEN ! default initialisation. needed by lim_istate238 IF( .NOT.l_ssm_mean ) THEN ! default initialisation. needed by iceistate 239 239 ! 240 240 IF(lwp) WRITE(numout,*) ' default initialisation of ss._m arrays'
Note: See TracChangeset
for help on using the changeset viewer.