New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2435 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 – NEMO

Ignore:
Timestamp:
2010-11-25T17:33:31+01:00 (13 years ago)
Author:
cetlod
Message:

Improve the 1D vertical configuration in v3.3beta

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r2370 r2435  
    4747   USE limvar          ! Ice variables switch 
    4848 
     49   USE c1d             ! 1D vertical configuration 
    4950   USE lbclnk          ! lateral boundary condition - MPP link 
    5051   USE iom             ! I/O manager library 
     
    192193         IF( ln_nicep )   CALL lim_prt_state( jiindx, jjindx, 1, ' - Beginning the time step - ' )   ! control print 
    193194         ! 
    194 #if ! defined key_c1d 
     195         IF( .NOT. lk_c1d ) THEN 
    195196                                                     ! Ice dynamics & transport (not in 1D case) 
    196197                          CALL lim_dyn( kt )              ! Ice dynamics    ( rheology/dynamics ) 
     
    200201         IF( ln_nicep )   CALL lim_prt_state( jiindx, jjindx,-1, ' - ice dyn & trp - ' )   ! control print 
    201202                          CALL lim_itd_me                 ! Mechanical redistribution ! (ridging/rafting) 
    202 #endif 
     203         ENDIF 
    203204         !                                           ! Ice thermodynamics  
    204205                          CALL lim_var_glo2eqv            ! equivalent variables 
Note: See TracChangeset for help on using the changeset viewer.