Ignore:
Timestamp:
2017-09-18T16:54:04+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - pure cosmetics

File:
1 edited

Legend:

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

    r8531 r8534  
    22   !!====================================================================== 
    33   !!                     ***  MODULE  icedyn  *** 
    4    !!   Sea-Ice dynamics :  
     4   !!   Sea-Ice dynamics : master routine for sea ice dynamics  
    55   !!====================================================================== 
    66   !! history :  4.0  ! 2017-09  (C. Rousset)  original code  
     
    88#if defined key_lim3 
    99   !!---------------------------------------------------------------------- 
    10    !!   'key_lim3'                                       LIM3 sea-ice model 
     10   !!   'key_lim3'                                       ESIM sea-ice model 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   ice_dyn       : dynamics of sea ice 
    13    !!   ice_dyn_init  : initialisation of sea-ice dynamics 
     13   !!   ice_dyn_init  : initialization and namelist read 
    1414   !!---------------------------------------------------------------------- 
    1515   USE phycst         ! physical constants 
    1616   USE dom_oce        ! ocean space and time domain 
    1717   USE ice            ! sea-ice: variables 
    18    USE icerhg         ! sea-ice: rheology 
    19    USE iceadv         ! sea-ice: advection 
    20    USE icerdgrft      ! sea-ice: ridging/rafting 
     18   USE icedyn_rhg     ! sea-ice: rheology 
     19   USE icedyn_adv     ! sea-ice: advection 
     20   USE icedyn_rdgrft  ! sea-ice: ridging/rafting 
    2121   USE icecor         ! sea-ice: corrections 
    2222   USE icevar         ! sea-ice: operations 
    2323   ! 
    24    USE lbclnk         ! lateral boundary conditions - MPP exchanges 
     24   USE in_out_manager ! I/O manager 
     25   USE iom            ! I/O manager library 
    2526   USE lib_mpp        ! MPP library 
    26    USE in_out_manager ! I/O manager 
    27    USE iom            ! I/O manager 
    28    USE lib_fortran    ! glob_sum 
     27   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     28   USE lbclnk         ! lateral boundary conditions (or mpp links) 
    2929   USE timing         ! Timing 
    3030 
     
    7373      !!-------------------------------------------------------------------- 
    7474      ! 
    75       IF( nn_timing == 1 )  CALL timing_start('icedyn') 
     75      IF( nn_timing == 1 )   CALL timing_start('icedyn') 
    7676      ! 
    7777      IF( kt == nit000 .AND. lwp ) THEN 
     
    104104 
    105105      CASE ( np_dynFULL )          !==  all dynamical processes  ==! 
    106          CALL ice_rhg   ( kt )                            ! -- rheology   
    107          CALL ice_adv   ( kt )   ;   CALL Hbig( zhmax )   ! -- advection of ice + correction on ice thickness 
    108          CALL ice_rdgrft( kt )                            ! -- ridging/rafting  
    109          CALL ice_cor   ( kt , 1 )                        ! -- Corrections 
     106         CALL ice_dyn_rhg   ( kt )                            ! -- rheology   
     107         CALL ice_dyn_adv   ( kt )   ;   CALL Hbig( zhmax )   ! -- advection of ice + correction on ice thickness 
     108         CALL ice_dyn_rdgrft( kt )                            ! -- ridging/rafting  
     109         CALL ice_cor       ( kt , 1 )                        ! -- Corrections 
    110110 
    111111      CASE ( np_dynRHGADV1 )       !==  no ridge/raft ==!   (mono cat. case 2) 
    112          CALL ice_rhg   ( kt )                            ! -- rheology   
    113          CALL ice_adv   ( kt )                            ! -- advection of ice 
    114          CALL Hpiling                                     ! -- simple pile-up (replaces ridging/rafting) 
    115          CALL ice_cor   ( kt , 1 )                        ! -- Corrections 
     112         CALL ice_dyn_rhg   ( kt )                            ! -- rheology   
     113         CALL ice_dyn_adv   ( kt )                            ! -- advection of ice 
     114         CALL Hpiling                                         ! -- simple pile-up (replaces ridging/rafting) 
     115         CALL ice_cor       ( kt , 1 )                        ! -- Corrections 
    116116 
    117117      CASE ( np_dynRHGADV2 )       !==  no ridge/raft & no corrections ==! 
    118          CALL ice_rhg   ( kt )                            ! -- rheology   
    119          CALL ice_adv   ( kt )                            ! -- advection of ice 
    120          CALL Hpiling                                     ! -- simple pile-up (replaces ridging/rafting) 
     118         CALL ice_dyn_rhg   ( kt )                            ! -- rheology   
     119         CALL ice_dyn_adv   ( kt )                            ! -- advection of ice 
     120         CALL Hpiling                                         ! -- simple pile-up (replaces ridging/rafting) 
    121121 
    122122      CASE ( np_dynADV )           !==  pure advection ==!   (prescribed velocities) 
     
    125125         !!CALL RANDOM_NUMBER(u_ice(:,:)) 
    126126         !!CALL RANDOM_NUMBER(v_ice(:,:)) 
    127          CALL ice_adv   ( kt )                            ! -- advection of ice 
     127         CALL ice_dyn_adv   ( kt )                            ! -- advection of ice 
    128128 
    129129      END SELECT 
     
    269269      IF( .NOT. ln_landfast )   tau_icebfr(:,:) = 0._wp 
    270270      ! 
    271       CALL ice_rdgrft_init          ! set ice ridging/rafting parameters 
    272       CALL ice_rhg_init             ! set ice rheology parameters 
    273       CALL ice_adv_init             ! set ice advection parameters 
     271      CALL ice_dyn_rdgrft_init          ! set ice ridging/rafting parameters 
     272      CALL ice_dyn_rhg_init             ! set ice rheology parameters 
     273      CALL ice_dyn_adv_init             ! set ice advection parameters 
    274274      ! 
    275275   END SUBROUTINE ice_dyn_init 
     
    277277#else 
    278278   !!---------------------------------------------------------------------- 
    279    !!   Default option         Empty module          NO LIM-3 sea-ice model 
     279   !!   Default option         Empty module           NO ESIM sea-ice model 
    280280   !!---------------------------------------------------------------------- 
    281281#endif  
Note: See TracChangeset for help on using the changeset viewer.