Changeset 1312 for trunk/NEMO/LIM_SRC_2/limwri_2.F90

Timestamp:

2009-02-16T17:35:36+01:00 (15 years ago)

Author:

smasson

Message:

add a namelist logical to mask land points in NetCDF outputs, see ticket:322

File:

• trunk/NEMO/LIM_SRC_2/limwri_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/limwri_2.F90

@@ -99 +99 @@
                            
          zsto     = rdt_ice
-!!Chris         clop     = "ave(only(x))"      !ibug  namelist parameter a ajouter
-         clop     = "ave(x)"
+         IF( ln_mskland )   THEN   ;   clop = "ave(only(x))"   ! put 1.e+20 on land (very expensive!!)
+         ELSE                      ;   clop = "ave(x)"         ! no use of the mask value (require less cpu time)
+         ENDIF
          zout     = nwrite * rdt_ice / nn_fsbc
          niter    = 0