Changeset 3333 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

Timestamp:

2012-03-20T11:19:32+01:00 (12 years ago)

Author:

sga

Message:

NEMO 2012 development branch dev_r3322_NOCS09_SAS: correct stupidity - otherwise known as never do

anything other than write inside an lwp clause

File:

• branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90 (modified) (1 diff)

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

@@ -106 +106 @@
           nn_ice      =   0
       ENDIF
-      IF( lwp ) THEN
-         IF( ln_cpl ) THEN
-            WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme'
-            ln_cpl = .FALSE.
-         ENDIF
-         IF( ln_apr_dyn ) THEN
-            WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme'
-            ln_apr_dyn = .FALSE.
-         ENDIF
-         IF( ln_dm2dc ) THEN
-            WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme'
-            ln_dm2dc = .FALSE.
-         ENDIF
-         IF( ln_rnf ) THEN
-            WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme'
-            ln_rnf = .FALSE.
-         ENDIF
-         IF( ln_ssr ) THEN
-            WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme'
-            ln_ssr = .FALSE.
-         ENDIF
-         IF( nn_fwb > 0 ) THEN
-            WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme'
-            nn_fwb = 0
-         ENDIF
-         IF( nn_closea > 0 ) THEN
-            WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme'
-            nn_closea = 0
-         ENDIF
+      IF( ln_cpl ) THEN
+         IF( lwp ) WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme'
+         ln_cpl = .FALSE.
+      ENDIF
+      IF( ln_apr_dyn ) THEN
+         IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme'
+         ln_apr_dyn = .FALSE.
+      ENDIF
+      IF( ln_dm2dc ) THEN
+         IF( lwp ) WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme'
+         ln_dm2dc = .FALSE.
+      ENDIF
+      IF( ln_rnf ) THEN
+         IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme'
+         ln_rnf = .FALSE.
+      ENDIF
+      IF( ln_ssr ) THEN
+         IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme'
+         ln_ssr = .FALSE.
+      ENDIF
+      IF( nn_fwb > 0 ) THEN
+         IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme'
+         nn_fwb = 0
+      ENDIF
+      IF( nn_closea > 0 ) THEN
+         IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme'
+         nn_closea = 0
       ENDIF