Changeset 4691


Ignore:
Timestamp:
2014-06-25T14:31:42+02:00 (7 years ago)
Author:
clem
Message:

add number of ice categories + correct a bug in case no ice model is used

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4689 r4691  
    3232   USE trc_oce, ONLY :   nn_dttrc        !  !: frequency of step on passive tracers 
    3333   USE icb_oce, ONLY :   nclasses, class_num       !  !: iceberg classes 
     34#if defined key_lim3 
    3435   USE par_ice 
     36#elif defined key_lim2 
     37   USE par_ice_2 
     38#endif 
    3539   USE domngb          ! ocean space and time domain 
    3640   USE phycst          ! physical constants 
     
    144148      CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,nfloat) /) ) 
    145149# endif 
    146 #if defined key_lim3 
     150#if defined key_lim3 || defined key_lim2 
    147151      CALL iom_set_axis_attr( "ncatice", (/ (REAL(ji,wp), ji=1,jpl) /) ) 
    148152#endif 
Note: See TracChangeset for help on using the changeset viewer.