Changeset 13112 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_ssh_dt/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2020-06-16T16:37:01+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_ssh_dt/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r13111 r13112 163 163 CALL iom_put( "ssh" , sshn ) ! sea surface height 164 164 CALL iom_put( "sshdt" , ( sshn - sshb ) / rdt ) ! sea surface height tendency (per second) 165 165 CALL iom_put( "sshdtabs" , ABS ( ( sshn - sshb ) / rdt ) ) ! absolute value of sea surface height tendency (per second) 166 166 167 CALL iom_put( "toce", tsn(:,:,:,jp_tem) ) ! 3D temperature 167 168 CALL theta2t ! in-situ temperature conversion
Note: See TracChangeset
for help on using the changeset viewer.