Changeset 14442 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/DIA/diawri.F90

Timestamp:

2021-02-11T17:50:43+01:00 (3 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.4_GO8_package : bug fix for previous commit.

File:

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

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/DIA/diawri.F90

@@ -389 +389 @@
 
       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('Tclinic_recip') .OR. iom_use('RR_GS')      &
             &                     .OR. iom_use('aeiu_2d')  .OR. iom_use('aeiv_2d') ) ) THEN
          CALL ldf_eiv(kt, 75.0, z2d, z3d(:,:,1))