Changeset 37 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

06/05/12 16:12:11 (12 years ago)

Author:

smasson

Message:

clean some write

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -173 +173 @@
                   zclname=ssnd(ji)%clname
                ENDIF
-               WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out
+               IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out
                CALL prism_def_var_proto (ssnd(ji)%nid(jc), zclname, id_part, (/ 2, 0/),   &
                     PRISM_Out, ishape, PRISM_REAL, nerror)
@@ -194 +194 @@
                   zclname=srcv(ji)%clname
                ENDIF
-               WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In
+               IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In
                CALL prism_def_var_proto ( srcv(ji)%nid(jc), zclname, id_part, (/ 2, 0/),   &
                     &                      PRISM_In    , ishape   , PRISM_REAL, nerror)