Ignore:
Timestamp:
2017-09-08T19:53:20+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - I think I can see the end of the tunnel

File:
1 edited

Legend:

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

    r8515 r8516  
    3737   USE icerhg         ! sea-ice: rheology 
    3838   USE iceadv         ! sea-ice: advection 
     39   USE icedyn         ! sea-ice: dynamics 
    3940   USE icethd         ! sea-ice: thermodynamics 
    4041   USE icerdgrft      ! sea-ice: ridging/rafting 
     
    144145         CALL ice_rst_opn( kt )     ! Open Ice restart file (if necessary)  
    145146         ! 
    146          SELECT CASE( nice_dyn )    
    147          CASE ( np_dynFULL )          !==  all dynamical processes  ==! 
    148             CALL ice_rhg   ( kt )          ! -- rheology   
    149             CALL ice_adv   ( kt )          ! -- advection of ice 
    150             CALL ice_rdgrft( kt )          ! -- ridging/rafting  
    151             CALL ice_cor   ( kt , 1 )      ! -- Corrections 
    152          CASE ( np_dyn )              !==  pure dynamics only ==!   (no ridging/rafting)   (nono cat. case 2) 
    153             CALL ice_rhg   ( kt )          ! -- rheology   
    154             CALL ice_adv   ( kt )          ! -- advection of ice 
    155             CALL ice_cor   ( kt , 1 )      ! -- Corrections 
    156          CASE ( np_dynPURE )          !==  pure dynamics only ==!   (nn_icedyn= 0 or 1 ) 
    157             CALL ice_rhg   ( kt )          ! -- rheology   
    158             CALL ice_adv   ( kt )          ! -- advection of ice 
    159          END SELECT 
     147         IF( ln_icedyn .AND. .NOT.lk_c1d )   CALL ice_dyn( kt )            ! -- Ice dynamics 
    160148         ! 
    161149         !                          !==  lateral boundary conditions  ==! 
    162150#if defined key_agrif 
    163          IF( .NOT. Agrif_Root()     )   CALL agrif_interp_lim3('T')   ! -- AGRIF  
     151         IF( .NOT. Agrif_Root()     )        CALL agrif_interp_lim3('T')   ! -- AGRIF  
    164152#endif 
    165          IF( ln_icethd .AND. ln_bdy )   CALL bdy_ice( kt )            ! -- bdy ice thermo 
     153         IF( ln_icethd .AND. ln_bdy )        CALL bdy_ice( kt )            ! -- bdy ice thermo 
    166154         ! 
    167155         ! 
     
    186174         !    qprec_ice, qevap_ice 
    187175         !------------------------------------------------------! 
    188          CALL ice_forcing_flx( kt, ksbc ) 
     176                                    CALL ice_forcing_flx( kt, ksbc ) 
    189177 
    190178         !----------------------------! 
     
    269257      ! 
    270258      CALL ice_itd_init                ! ice thickness distribution initialization 
     259      ! 
     260      CALL ice_dyn_init                ! set ice dynamics parameters 
    271261      ! 
    272262      CALL ice_rdgrft_init             ! set ice ridging/rafting parameters 
Note: See TracChangeset for help on using the changeset viewer.