Changeset 13114 for branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO

Timestamp:

2020-06-16T17:48:15+02:00 (4 years ago)

Author:

mattmartin

Message:

Include diagnostic for SSH tendencies and their absolute values.

Location:

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/bias.F90 (modified) (1 diff)
• DIA/diawri.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

@@ -283 +283 @@
          WRITE(numout,*) '     bias T and S apply             ln_bias_ts_app = ',ln_bias_ts_app
          WRITE(numout,*) '     bias pressure correctn apply   ln_bias_pc_app = ',ln_bias_pc_app
-         WRITE(numout,*) '     bias pressure correctn apply   ln_bias_pc_app = ',ln_bias_pc_app
          WRITE(numout,*) '     lat ramp for bias correction   nn_lat_ramp    = ',nn_lat_ramp
          WRITE(numout,*) '     time step for writing bias fld nn_bias_itwrt  = ',nn_bias_itwrt

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -161 +161 @@
 
 
-      CALL iom_put( "ssh" , sshn )                 ! sea surface height
-      
+      CALL iom_put( "ssh" , sshn )                    ! sea surface height
+      CALL iom_put( "sshdt" , ( sshn - sshb ) / rdt ) ! sea surface height tendency (per second)
+      CALL iom_put( "sshdtabs" , ABS ( ( sshn - sshb ) / rdt ) ) ! absolute value of sea surface height tendency (per second)
+            
       CALL iom_put( "toce", tsn(:,:,:,jp_tem) )    ! 3D temperature
       CALL theta2t ! in-situ temperature conversion