Changeset 1055 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.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/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -18 +18 @@
    USE c1d             ! 1d configuration
    USE dom_oce         ! ocean space and time domain
+   USE lib_mpp
    USE ice_2
    USE iceini_2
@@ -186 +187 @@
                                         CALL lim_thd_2      ( kt )      ! Ice thermodynamics 
                                         CALL lim_sbc_2      ( kt )      ! Ice/Ocean Mass & Heat fluxes 
-         IF( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR.   &
-            &  ntmoy == 1 )             CALL lim_dia_2      ( kt )      ! Ice Diagnostics 
+         IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp )   &
+            &                           CALL lim_dia_2      ( kt )      ! Ice Diagnostics 
                                         CALL lim_wri_2      ( kt )      ! Ice outputs 
          IF( lrst_ice )                 CALL lim_rst_write_2( kt )      ! Ice restart file