Changeset 10868 for NEMO/releases/release-4.0

Timestamp:

2019-04-15T12:32:56+02:00 (6 years ago)

Author:

cetlod

Message:

v4.0:Change units of Nitrogen deposition data in PISCES, see ticket:2271

File:

• NEMO/releases/release-4.0/src/TOP/PISCES/P4Z/p4zsbc.F90 (modified) (1 diff)

NEMO/releases/release-4.0/src/TOP/PISCES/P4Z/p4zsbc.F90

@@ -172 +172 @@
       IF( ln_ndepo ) THEN
          IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_ndep > 1 ) ) THEN
-             zcoef = rno3 * 14E6 * ryyss
+             zcoef = 14. * rno3
              CALL fld_read( kt, 1, sf_ndepo )
              nitdep(:,:) = MAX( rtrn, sf_ndepo(1)%fnow(:,:,1) / zcoef / e3t_n(:,:,1) )
          ENDIF
          IF( .NOT.ln_linssh ) THEN
-           zcoef = rno3 * 14E6 * ryyss
-           nitdep(:,:) = MAX( rtrn, sf_ndepo(1)%fnow(:,:,1) / zcoef / e3t_n(:,:,1) )
+            zcoef = 14. * rno3
+            nitdep(:,:) = MAX( rtrn, sf_ndepo(1)%fnow(:,:,1) / zcoef / e3t_n(:,:,1) )
          ENDIF
       ENDIF