Changeset 2730 for trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

Timestamp:

2011-04-08T13:14:00+02:00 (13 years ago)

Author:

rblod

Message:

Add missing logical lwp

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

@@ -94 +94 @@
       CALL lim_sbc_init_2              ! ice surface boundary condition   
       !
-      IF( lk_lim2_vp )   THEN   ;   WRITE(numout,*) '                VP  rheology - B-grid case'
-      ELSE                      ;   WRITE(numout,*) '                EVP rheology - C-grid case'
+      IF( lk_lim2_vp )   THEN   ;   IF(lwp) WRITE(numout,*) '                VP  rheology - B-grid case'
+      ELSE                      ;   IF(lwp) WRITE(numout,*) '                EVP rheology - C-grid case'
       ENDIF
       !