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 12 for trunk/NEMO/LIM_SRC/iceini.F90 – NEMO

Ignore:
Timestamp:
2004-02-17T07:56:53+01:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE001 : First major NEMO update

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC/iceini.F90

    r3 r12  
    2828 
    2929   !! * Share Module variables 
    30    LOGICAL , PUBLIC  ::  & !!! ** init namelist (namicerun) ** 
    31       ldyn   = .TRUE.       ! flag for ice dynamics (T) or not (F) 
    32  
    33    REAL(wp), PUBLIC  ::  & 
    34       hsndif = 0.0     , & ! computation of temp. in snow (0) or not (9999) 
    35       hicdif = 0.0         ! computation of temp. in ice (0) or not (9999) 
    36  
    37    !! * Module variables 
    38    REAL(wp), PUBLIC, DIMENSION(2)  ::  &    
    39       acrit  = (/ 1.0e-06 , 1.0e-06 /)   ! minimum fraction for leads in  
    40       !                                  ! north and south hemisphere 
    41  
    42    INTEGER, PUBLIC   ::   & 
    43       nstart ,   &  ! iteration number of the begining of the run  
    44       nlast  ,   &  ! iteration number of the end of the run  
    45       nitrun ,   &  ! number of iteration 
    46       numit         ! iteration number 
    47   
    48   REAL(wp), PUBLIC ::   & 
    49       tpstot         ! time of the run in seconds 
     30   LOGICAL , PUBLIC  ::   & !!! ** init namelist (namicerun) ** 
     31      ldyn   = .TRUE.        !: flag for ice dynamics (T) or not (F) 
     32   INTEGER , PUBLIC  ::   &  !: 
     33      nstart ,            &  !: iteration number of the begining of the run  
     34      nlast  ,            &  !: iteration number of the end of the run  
     35      nitrun ,            &  !: number of iteration 
     36      numit                  !: iteration number 
     37   REAL(wp), PUBLIC  ::   &  !: 
     38      hsndif = 0.0 ,      &  !: computation of temp. in snow (0) or not (9999) 
     39      hicdif = 0.0 ,      &  !: computation of temp. in ice (0) or not (9999) 
     40      tpstot                 !: time of the run in seconds 
     41   REAL(wp), PUBLIC, DIMENSION(2)  ::  &  !: 
     42      acrit  = (/ 1.0e-06 , 1.0e-06 /)    !: minimum fraction for leads in  
     43      !                                   !  north and south hemisphere 
    5044   !!---------------------------------------------------------------------- 
    5145   !!   LIM 2.0   UCL-LODYC-IPSL (2003) 
Note: See TracChangeset for help on using the changeset viewer.