Changeset 11354

Timestamp:

2019-07-26T09:30:23+02:00 (4 years ago)

Author:

smasson

Message:

dev_r10984_HPC-13 : add missing lwm in all usrdef_nam.F90

Location:

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization

Files:

• cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• src/OCE/USR/usrdef_nam.F90 (modified) (1 diff)
• tests/BENCH/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/CANAL/MY_SRC/usrdef_nam.F90 (modified) (2 diffs)
• tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90 (modified) (2 diffs)
• tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90 (modified) (2 diffs)
• tests/ISOMIP/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/OVERFLOW/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/VORTEX/MY_SRC/usrdef_nam.F90 (modified) (1 diff)
• tests/WAD/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90

@@ -65 +65 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'C1D'               ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/USR/usrdef_nam.F90

@@ -63 +63 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'GYRE'               ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH/MY_SRC/usrdef_nam.F90

@@ -65 +65 @@
 903   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )      
+      IF(lwm)   WRITE( numond, namusr_def )      
       !
       cd_cfg = 'BENCH'             ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/CANAL/MY_SRC/usrdef_nam.F90

@@ -88 +88 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist', cdtxt )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
 #if defined key_agrif 
@@ -102 +102 @@
 #endif
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'EW_CANAL'             ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90

@@ -67 +67 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'ICE_ADV1D'           ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90

@@ -67 +67 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
 #if defined key_agrif 
@@ -78 +78 @@
 #endif
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'ICE_ADV2D'           ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

@@ -67 +67 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
 #if defined key_agrif 
@@ -78 +78 @@
 #endif
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'ICE_AGRIF'           ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ISOMIP/MY_SRC/usrdef_nam.F90

@@ -68 +68 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'ISOMIP'           ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90

@@ -64 +64 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       !

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/OVERFLOW/MY_SRC/usrdef_nam.F90

@@ -65 +65 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'OVERFLOW'           ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/VORTEX/MY_SRC/usrdef_nam.F90

@@ -77 +77 @@
 #endif
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'VORTEX'             ! name & resolution (not used)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/WAD/MY_SRC/usrdef_nam.F90

@@ -65 +65 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      WRITE( numond, namusr_def )
+      IF(lwm)   WRITE( numond, namusr_def )
       !
       !