Changeset 2435 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2010-11-25T17:33:31+01:00 (13 years ago)

Author:

cetlod

Message:

Improve the 1D vertical configuration in v3.3beta

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -39 +39 @@
    USE limwri_2
    USE limrst_2
+
+   USE c1d              ! 1D vertical configuration
 
    USE lbclnk           ! lateral boundary condition - MPP link
@@ -179 +181 @@
 
                            CALL lim_rst_opn_2  ( kt )  ! Open Ice restart file
-#if ! defined key_c1d
-                                                       ! Ice dynamics & transport (except in 1D case)
+         IF( .NOT. lk_c1d ) THEN                       ! Ice dynamics & transport (except in 1D case)
                            CALL lim_dyn_2      ( kt )      ! Ice dynamics    ( rheology/dynamics )
                            CALL lim_trp_2      ( kt )      ! Ice transport   ( Advection/diffusion )
-         IF( ln_limdmp )   CALL lim_dmp_2      ( kt )      ! Ice damping 
-#endif
+           IF( ln_limdmp ) CALL lim_dmp_2      ( kt )      ! Ice damping 
+         END IF
 #if defined key_coupled
          !                                             ! Ice surface fluxes in coupled mode