Changeset 1055 for trunk/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2008-06-04T18:05:30+02:00 (16 years ago)

Author:

rblod

Message:

Desactived control print (ln_nicep) for LIM3, correct forcing field for tair, supress u_ice and v_ice as argument for buls clior

File:

• trunk/NEMO/LIM_SRC_3/iceini.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/iceini.F90

@@ -22 +22 @@
    USE par_ice
    USE limvar
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -127 +128 @@
       REWIND ( numnam_ice )
       READ   ( numnam_ice , namicerun )
-      ln_nicep = ln_nicep .AND. lwp
+
+      IF( lk_mpp .AND. ln_nicep ) THEN
+         ln_nicep = .FALSE.
+         CALL ctl_warn( 'ice_run : specific control print for LIM3 desactivated with MPI' )
+      ENDIF       
+
       IF(lwp) THEN
          WRITE(numout,*)