Changeset 1329 for trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

Timestamp:

2009-02-20T11:32:52+01:00 (15 years ago)

Author:

cetlod

Message:

update modules to take into account the mask land points in NetCDF outputs, see ticket:322

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -330 +330 @@
       DO jj = 1,jpj
          DO ji = 1,jpi
-            trc2d(ji,jj,jp_pcs0_2d + 11) = zirondep(ji,jj,1) * 1.e+3 * rfact2r * fse3t(ji,jj,1)
-            trc2d(ji,jj,jp_pcs0_2d + 12) = znitrpot(ji,jj,1) * 1.e-7 * fse3t(ji,jj,1) * 1.e+3 / rfact2
+            trc2d(ji,jj,jp_pcs0_2d + 11) = zirondep(ji,jj,1) * 1.e+3 * rfact2r &
+      &                                   * fse3t(ji,jj,1) * tmask(ji,jj,1)
+            trc2d(ji,jj,jp_pcs0_2d + 12) = znitrpot(ji,jj,1) * 1.e-7 &
+      &                                   * fse3t(ji,jj,1) * 1.e+3 / rfact2 * tmask(ji,jj,1)
          END DO
       END DO