Changeset 14078 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC
- Timestamp:
- 2020-12-04T11:17:01+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcssm.F90
r14075 r14078 57 57 REAL(wp) :: zcoef, zf_sbc ! local scalar 58 58 REAL(wp), DIMENSION(jpi,jpj,jpts) :: zts 59 CHARACTER(len=4),SAVE :: stype 59 60 !!--------------------------------------------------------------------- 61 IF( kt == nit000 ) THEN 62 IF( ln_TEOS10 ) THEN 63 stype='abs' ! teos-10: using absolute salinity (sst is converted to potential temperature for the surface module) 64 ELSE IF( ln_EOS80 ) THEN 65 stype='pra' ! eos-80: using practical salinity 66 ELSE IF ( ln_SEOS) THEN 67 stype='seos' ! seos using Simplified Equation of state (sst is converted to potential temperature for the surface module) 68 ENDIF 69 ENDIF 60 70 ! 61 71 ! !* surface T-, U-, V- ocean level variables (T, S, depth, velocity) … … 174 184 CALL iom_put( 'ssu_m', ssu_m ) 175 185 CALL iom_put( 'ssv_m', ssv_m ) 176 CALL iom_put( 'sst_m ', sst_m )177 CALL iom_put( 'sss_m ', sss_m )186 CALL iom_put( 'sst_m_pot', sst_m ) 187 CALL iom_put( 'sss_m_'//stype, sss_m ) 178 188 CALL iom_put( 'ssh_m', ssh_m ) 179 189 CALL iom_put( 'e3t_m', e3t_m )
Note: See TracChangeset
for help on using the changeset viewer.