Changeset 8407


Ignore:
Timestamp:
2017-08-07T16:45:49+02:00 (3 years ago)
Author:
clem
Message:

change calls in icestp.F90 for rheology

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
Files:
3 added
3 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r8360 r8407  
    7474   !! in icestp.F90, the routines that compute the changes in the ice     | 
    7575   !! state variables are called                                          | 
    76    !! - lim_dyn : ice dynamics                                            | 
     76   !! - ice_rhg : ice dynamics                                            | 
    7777   !! - lim_trp : ice transport                                           | 
    7878   !! - lim_itd_me : mechanical redistribution (ridging and rafting)      | 
     
    208208   REAL(wp), PUBLIC ::   rn_crhg          !: determines changes in ice strength 
    209209   LOGICAL , PUBLIC ::   ln_icestr_bvf    !: use brine volume to diminish ice strength 
    210                                           ! -- limdyn & limrhg -- ! 
     210                                          ! -- limdyn & icerhg -- ! 
    211211   REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
    212212   REAL(wp), PUBLIC ::   rn_cio           !: drag coefficient for oceanic stress 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8404 r8407  
    3232   USE phycst          ! Define parameters for the routines 
    3333   USE eosbn2          ! equation of state 
    34    USE limdyn          ! Ice dynamics 
     34   USE icerhg          ! Ice dynamics 
    3535   USE limtrp          ! Ice transport 
    3636   USE limthd          ! Ice thermodynamics 
     
    6060 
    6161   USE bdy_oce   , ONLY: ln_bdy 
    62    USE bdyice_lim      ! unstructured open boundary data  (bdy_ice_lim routine) 
     62   USE bdyice          ! unstructured open boundary data 
    6363# if defined key_agrif 
    6464   USE agrif_ice 
     
    106106                                       !                    3 = bulk formulation, 
    107107                                       !                    4 = Pure Coupled formulation) 
    108       !! 
    109108      INTEGER  ::   jl                 ! dummy loop index 
    110       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zalb_os, zalb_cs  ! ice albedo under overcast/clear sky 
    111       REAL(wp), DIMENSION(jpi,jpj)     ::   zutau_ice, zvtau_ice  
    112109      !!---------------------------------------------------------------------- 
    113110 
     
    158155            ! 
    159156            IF( nn_limdyn /= 0 ) THEN                          ! -- Ice dynamics 
    160                                       CALL lim_dyn( kt )       !     rheology   
     157                                      CALL ice_rhg( kt )       !     rheology   
    161158            ELSE 
    162159               u_ice(:,:) = rn_uice * umask(:,:,1)             !     or prescribed velocity 
     
    176173         IF( .NOT. Agrif_Root() )     CALL agrif_interp_lim3('T') 
    177174#endif 
    178          IF( ln_limthd .AND. ln_bdy ) CALL bdy_ice_lim( kt )   ! -- bdy ice thermo  
     175         IF( ln_limthd .AND. ln_bdy ) CALL bdy_ice( kt )       ! -- bdy ice thermo  
    179176         ! previous lead fraction and ice volume for flux calculations 
    180177                                      CALL lim_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation 
     
    278275      IF( ierr /= 0 )   CALL ctl_stop('STOP', 'ice_init : unable to allocate ice arrays') 
    279276      ! 
    280       CALL lim_dyn_init                ! set ice dynamics parameters 
     277      CALL ice_rhg_init                ! set ice dynamics parameters 
    281278      ! 
    282279      CALL ice_itd_init                ! ice thickness distribution initialization 
Note: See TracChangeset for help on using the changeset viewer.