Changeset 631 for trunk/NEMO/OPA_SRC/DOM

Timestamp:

2007-03-02T17:40:54+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v2_update_007 : CT : add the logical namelist ln_dimgnnn to be able to choose (in DIMG) between:

• 1 output file for all proc.
• 1 output file per proc.

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -107 +107 @@
       hur(:,:) = fse3u(:,:,1)             ! Lower bound : thickness of the first model level
       hvr(:,:) = fse3v(:,:,1)
-      
+
       DO jk = 2, jpk                      ! Sum of the vertical scale factors
          hur(:,:) = hur(:,:) + fse3u(:,:,jk) * umask(:,:,jk)
@@ -144 +144 @@
       NAMELIST/namrun/ no    , cexper   , ln_rstart , nrstdt , nit000,         &
          &             nitend, ndate0   , nleapy   , ninist , nstock,          &
-         &             nwrite, nrunoff
+         &             nwrite, nrunoff  , ln_dimgnnn
 
       NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, ngrid  , nmsh  ,   &
@@ -176 +176 @@
          WRITE(numout,*) '           frequency of output file        nwrite    = ', nwrite
          WRITE(numout,*) '           runoff option                   nrunoff   = ', nrunoff
+         WRITE(numout,*) '           multi file dimgout           ln_dimgnnn   = ', ln_dimgnnn
       ENDIF