Changeset 15695 for NEMO/branches/UKMO/NEMO_4.0.3_GO8_package/src/OCE/DIA/diaprod.F90

Timestamp:

2022-02-04T17:43:35+01:00 (2 years ago)

Author:

davestorkey

Message:

Fix duplicate iom_put calls for rhop.

File:

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

NEMO/branches/UKMO/NEMO_4.0.3_GO8_package/src/OCE/DIA/diaprod.F90

@@ -65 +65 @@
       !
 
-      IF( iom_use("urhop") .OR. iom_use("vrhop") .OR. iom_use("wrhop") &
-#if ! defined key_diaar5
-     &  .OR. iom_use("rhop") &
-#endif
-     & ) THEN
+      IF( iom_use("urhop") .OR. iom_use("vrhop") .OR. iom_use("wrhop") ) THEN
          CALL eos( tsn, z3d, zrhop )                 ! now in situ and potential density
          zrhop(:,:,:) = zrhop(:,:,:)-1000.e0         ! reference potential density to 1000 to avoid precision issues in rhop2 calculation
          zrhop(:,:,jpk) = 0._wp
-#if ! defined key_diaar5
-         CALL iom_put( 'rhop', zrhop )
-#else
-         ! If key_diaar5 set then there is already an iom_put call to output rhop.
-         ! Really should be a standard diagnostics option?
-#endif
       ENDIF