Changeset 4953 for branches/2014

Timestamp:

2014-12-02T12:13:44+01:00 (9 years ago)

Author:

cbricaud

Message:

add missing (IF lwm)

Location:

branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC

Files:

• SBC/sbcblk_core.F90 (modified) (1 diff)
• ZDF/zdftmx.F90 (modified) (1 diff)

branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -159 +159 @@
 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp )
 
-         WRITE ( numond, namsbc_core )
+         IF(lwm)WRITE ( numond, namsbc_core )
          !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing?
          IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &

branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

@@ -388 +388 @@
       READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp )
-      WRITE ( numond, namzdf_tmx )
+      IF(lwm)WRITE ( numond, namzdf_tmx )
 
       IF(lwp) THEN                   ! Control print