Changeset 13161 for NEMO/branches/UKMO/NEMO_4.0.1_GM_rossby_radius_cutoff/src/OCE/DIA/diawri.F90

Timestamp:

2020-06-26T15:02:13+02:00 (4 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.1_GM_rossby_radius_cutoff : new control structure, new diagnostics and new bathymetric ramp option.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_GM_rossby_radius_cutoff/src/OCE/DIA/diawri.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_GM_rossby_radius_cutoff/src/OCE/DIA/diawri.F90

@@ -391 +391 @@
       CALL iom_put( "bn2", rn2 )                      ! Brunt-Vaisala buoyancy frequency (N^2)
       !
+      IF( (.NOT.l_ldfeiv_time) .AND. ( iom_use('RossRad')  .OR. iom_use('RossRadlim') &
+            &                     .OR. iom_use('TclinicR') .OR. iom_use('RR_GG')      &
+            &                     .OR. iom_use('aeiu_2d')  .OR. iom_use('aeiv_2d') ) ) THEN
+         CALL ldf_eiv(kt, 75.0, z2d, z3d(:,:,1))
+         CALL iom_put('aeiu_2d', z2d)
+         CALL iom_put('aeiv_2d', z3d(:,:,1))
+      ENDIF
 
       IF (ln_diatmb)   CALL dia_tmb                   ! tmb values