Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (3 years ago)
Author:
gm
Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90

    r7646 r7953  
    1818   PUBLIC agrif_ice_alloc ! routine called by nemo_init in nemogcm.F90 
    1919 
    20    INTEGER, PUBLIC :: u_ice_id, v_ice_id, adv_ice_id 
    21    REAL(wp), PUBLIC :: lim_nbstep = 0.    ! child time position in sea-ice model 
     20   INTEGER , PUBLIC ::  u_ice_id, v_ice_id, adv_ice_id 
     21   REAL(wp), PUBLIC ::   lim_nbstep = 0.    ! child time position in sea-ice model 
    2222#if defined key_lim2_vp 
    2323   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)     :: u_ice_nst, v_ice_nst    
    2424#else 
    2525   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: u_ice_oe, u_ice_sn     !: boundaries arrays 
    26    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: v_ice_oe, v_ice_sn     !:  "          "  
     26   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: v_ice_oe, v_ice_sn     !:     -        -  
    2727#endif 
    28    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:) :: adv_ice_oe, adv_ice_sn !:  "          " 
     28   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:) :: adv_ice_oe, adv_ice_sn !:     -        - 
    2929 
    3030   !!---------------------------------------------------------------------- 
    31    !! NEMO/NST 3.3.4 , NEMO Consortium (2012) 
     31   !! NEMO/NST 4.0 , NEMO Consortium (2017) 
    3232   !! $Id$ 
    3333   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3434   !!---------------------------------------------------------------------- 
    35  
    3635CONTAINS  
    3736 
     
    5049 
    5150#if ! defined key_lim2_vp 
    52       u_ice_oe(:,:,:) =  0.e0 
    53       v_ice_oe(:,:,:) =  0.e0 
    54       u_ice_sn(:,:,:) =  0.e0 
    55       v_ice_sn(:,:,:) =  0.e0 
     51      u_ice_oe(:,:,:) =  0._wp 
     52      v_ice_oe(:,:,:) =  0._wp 
     53      u_ice_sn(:,:,:) =  0._wp 
     54      v_ice_sn(:,:,:) =  0._wp 
    5655#endif 
    57       adv_ice_oe (:,:,:,:) = 0.e0  
    58       adv_ice_sn (:,:,:,:) = 0.e0  
     56      adv_ice_oe (:,:,:,:) = 0._wp  
     57      adv_ice_sn (:,:,:,:) = 0._wp 
    5958      ! 
    6059   END FUNCTION agrif_ice_alloc 
     
    7170 
    7271   !!---------------------------------------------------------------------- 
    73    !! NEMO/NST 3.6 , NEMO Consortium (2016) 
     72   !! NEMO/NST 4.0 , NEMO Consortium (2017) 
    7473   !! $Id$ 
    7574   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
Note: See TracChangeset for help on using the changeset viewer.