Changeset 14214 for NEMO

Timestamp:

2020-12-18T12:46:40+01:00 (3 years ago)

Author:

cetlod

Message:

r4.0-HEAD : correct a typo

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/TOP/PISCES/P4Z/p4zopt.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/TOP/PISCES/P4Z/p4zopt.F90

@@ -265 +265 @@
          CALL iom_put( "Heup" , heup(:,:  ) * tmask(:,:,1) )  ! euphotic layer deptht
          IF( iom_use( "PAR" ) ) THEN
-            zpar(:.:,1) = zpar(:,:,1) * ( 1._wp - fr_i(:,:) )
+            zpar(:,:,1) = zpar(:,:,1) * ( 1._wp - fr_i(:,:) )
             CALL iom_put( "PAR", zpar(:,:,:) * tmask(:,:,:) )  ! Photosynthetically Available Radiation
          ENDIF