Changeset 1329 for trunk/NEMO/TOP_SRC/PISCES/p4zflx.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/p4zflx.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90

@@ -169 +169 @@
 # if defined key_trc_diaadd
             ! Save diagnostics
-            trc2d(ji,jj,jp_pcs0_2d    ) = ( zfld - zflu ) * 1000.
-            trc2d(ji,jj,jp_pcs0_2d + 1) = ( zfld16 - zflu16 ) * 1000.
-            trc2d(ji,jj,jp_pcs0_2d + 2) = zkgco2(ji,jj)
-            trc2d(ji,jj,jp_pcs0_2d + 3) = atcco2 - zh2co3(ji,jj) / ( chemc(ji,jj,1) + rtrn )
+            trc2d(ji,jj,jp_pcs0_2d    ) = ( zfld - zflu ) * 1000.  * tmask(ji,jj,1)
+            trc2d(ji,jj,jp_pcs0_2d + 1) = ( zfld16 - zflu16 ) * 1000. * tmask(ji,jj,1)
+            trc2d(ji,jj,jp_pcs0_2d + 2) = zkgco2(ji,jj) * tmask(ji,jj,1)
+            trc2d(ji,jj,jp_pcs0_2d + 3) = atcco2 - zh2co3(ji,jj) / ( chemc(ji,jj,1) + rtrn ) * tmask(ji,jj,1)
 # endif
          END DO