Changeset 1579 for trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

2009-08-05T12:14:11+02:00 (15 years ago)

Author:

smasson

Message:

avoid write in numout before definition of lwp, see ticket:237

File:

• trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -84 +84 @@
       !!--------------------------------------------------------------------
 
-      IF(lwp) WRITE(numout,*) 'cpl_prism_init : initialization in coupled ocean/atmosphere case'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~'
-      IF(lwp) WRITE(numout,*)
+      ! WARNING: No write in numout in this routine
+      !============================================
+
       !------------------------------------------------------------------
       ! 1st Initialize the PRISM system for the application