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

trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -21 +21 @@
    USE c1d             ! 1d configuration
    USE dom_oce         ! ocean space and time domain
+   USE lib_mpp
    USE par_ice         ! sea-ice parameters
    USE ice
@@ -236 +237 @@
          !                                           ! Diagnostics and outputs 
                           !                               ! Ice Diagnostics 
-         IF( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 )   CALL lim_dia 
+         IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp )   &
+            &             CALL lim_dia 
                           CALL lim_wri( 1  )              ! Ice outputs 
          IF( lrst_ice )   CALL lim_rst_write( kt )        ! Ice restart file