Changeset 12660 for NEMO/branches/UKMO/NEMO_4.0.2_GO8_package/src/SAS
- Timestamp:
- 2020-04-03T13:09:33+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.2_GO8_package/src/SAS/sbcssm.F90
r12658 r12660 77 77 REAL(wp) :: ztinta ! ratio applied to after records when doing time interpolation 78 78 REAL(wp) :: ztintb ! ratio applied to before records when doing time interpolation 79 !!---------------------------------------------------------------------- 79 CHARACTER(len=4),SAVE :: stype 80 !!--------------------------------------------------------------------- 81 IF( kt == nit000 ) THEN 82 IF( ln_TEOS10 ) THEN 83 stype='abs' ! teos-10: using absolute salinity (sst is converted to potential temperature for the surface module) 84 ELSE IF( ln_EOS80 ) THEN 85 stype='pra' ! eos-80: using practical salinity 86 ELSE IF ( ln_SEOS) THEN 87 stype='seos' ! seos using Simplified Equation of state (sst is converted to potential temperature for the surface module) 88 ENDIF 89 ENDIF 80 90 ! 81 91 IF( ln_timing ) CALL timing_start( 'sbc_ssm') … … 144 154 CALL iom_put( 'ssu_m', ssu_m ) 145 155 CALL iom_put( 'ssv_m', ssv_m ) 146 CALL iom_put( 'sst_m ', sst_m )147 CALL iom_put( 'sss_m ', sss_m )156 CALL iom_put( 'sst_m_pot', sst_m ) 157 CALL iom_put( 'sss_m_'//stype, sss_m ) 148 158 CALL iom_put( 'ssh_m', ssh_m ) 149 159 IF( .NOT.ln_linssh ) CALL iom_put( 'e3t_m', e3t_m )
Note: See TracChangeset
for help on using the changeset viewer.