Changeset 12691 for NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/DIA/diaar5.F90

Timestamp:

2020-04-06T17:36:16+02:00 (3 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.1_biharmonic_GM : stabilising correction terms

File:

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

NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/DIA/diaar5.F90

@@ -136 +136 @@
          !                                         ! steric sea surface height
          CALL eos( tsn, zrhd, zrhop, gdept_n(:,:,:) )                 ! now in situ and potential density
-         !CW: commenting out the following line, as seems weird to zero the array before output & only way to get rhop output
-         !zrhop(:,:,jpk) = 0._wp
+         zrhop(:,:,jpk) = 0._wp
          CALL iom_put( 'rhop', zrhop )
          !