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/icethd.F90

    r8531 r8534  
    22   !!====================================================================== 
    33   !!                  ***  MODULE icethd   *** 
    4    !!  LIM-3 :   ice thermodynamic 
     4   !!   sea-ice : master routine for thermodynamics 
    55   !!====================================================================== 
    66   !! History :  LIM  ! 2000-01 (M.A. Morales Maqueda, H. Goosse, T. Fichefet) LIM-1 
     
    1515#if defined key_lim3 
    1616   !!---------------------------------------------------------------------- 
    17    !!   'key_lim3'                                       LIM3 sea-ice model 
    18    !!---------------------------------------------------------------------- 
    19    !!   ice_thd       : thermodynamic of sea ice 
    20    !!   ice_thd_init  : initialisation of sea-ice thermodynamic 
     17   !!   'key_lim3'                                       ESIM sea-ice model 
     18   !!---------------------------------------------------------------------- 
     19   !!   ice_thd       : thermodynamics of sea ice 
     20   !!   ice_thd_init  : initialisation of sea-ice thermodynamics 
    2121   !!---------------------------------------------------------------------- 
    2222   USE phycst         ! physical constants 
    2323   USE dom_oce        ! ocean space and time domain variables 
    24    USE ice            ! sea-ice variables 
     24   USE ice            ! sea-ice: variables 
    2525!!gm list trop longue ==>>> why not passage en argument d'appel ? 
    2626   USE sbc_oce , ONLY : sss_m, sst_m, e3t_m, utau, vtau, ssu_m, ssv_m, frq_m, qns_tot, qsr_tot, sprecip, ln_cpl 
    2727   USE sbc_ice , ONLY : qsr_oce, qns_oce, qemp_oce, qsr_ice, qns_ice, dqns_ice, evap_ice, qprec_ice, qevap_ice, & 
    2828      &                 fr1_i0, fr2_i0 
    29    USE ice1D          ! thermodynamic sea-ice variables 
    30    USE icethd_zdf     ! vertical diffusion 
    31    USE icethd_dh      ! ice-snow growth and melt 
    32    USE icethd_da      ! lateral melting 
    33    USE icethd_sal     ! ice salinity 
    34    USE icethd_ent     ! ice enthalpy redistribution 
    35    USE icethd_do      ! lateral accretion 
    36    USE iceitd         ! remapping thickness distribution 
    37    USE icetab         ! 1D <==> 2D transformation 
    38    USE icevar         ! 
    39    USE icectl         ! control print 
     29   USE ice1D          ! sea-ice: thermodynamics variables 
     30   USE icethd_zdf     ! sea-ice: vertical heat diffusion 
     31   USE icethd_dh      ! sea-ice: ice-snow growth and melt 
     32   USE icethd_da      ! sea-ice: lateral melting 
     33   USE icethd_sal     ! sea-ice: salinity 
     34   USE icethd_ent     ! sea-ice: enthalpy redistribution 
     35   USE icethd_do      ! sea-ice: growth in open water 
     36   USE iceitd         ! sea-ice: remapping thickness distribution 
     37   USE icetab         ! sea-ice: 1D <==> 2D transformation 
     38   USE icevar         ! sea-ice: operations 
     39   USE icectl         ! sea-ice: control print 
    4040   ! 
    4141   USE in_out_manager ! I/O manager 
    42    USE lbclnk         ! lateral boundary condition - MPP links 
    4342   USE lib_mpp        ! MPP library 
    44    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     43   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     44   USE lbclnk         ! lateral boundary conditions (or mpp links) 
    4545   USE timing         ! Timing 
    4646 
     
    8484      !!             - call ice_thd_da   for lateral ice melt 
    8585      !!             - back to the geographic grid 
     86      !!             - call ice_thd_rem  for remapping thickness distribution 
     87      !!             - call ice_thd_do   for ice growth in leads 
    8688      !!--------------------------------------------------------------------- 
    8789      INTEGER, INTENT(in) :: kt    ! number of iteration 
     
    578580#else 
    579581   !!---------------------------------------------------------------------- 
    580    !!   Default option         Dummy module          NO  LIM3 sea-ice model 
     582   !!   Default option         Dummy module          NO  ESIM sea-ice model 
    581583   !!---------------------------------------------------------------------- 
    582584#endif 
Note: See TracChangeset for help on using the changeset viewer.