Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

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

    r8512 r8514  
    4949   USE limmp          ! sea-ice: melt ponds 
    5050   ! END MV MP 2016 
    51    USE iceist         ! sea-ice: initial state 
     51   USE iceistate      ! sea-ice: initial state 
    5252   USE icethd_sal     ! sea-ice: thermodynamics and salinity 
    5353   USE iceitd         ! sea-ice: remapping thickness distribution 
     
    163163         IF( .NOT. Agrif_Root()     )   CALL agrif_interp_lim3('T')   ! -- AGRIF  
    164164#endif 
    165          IF( ln_limthd .AND. ln_bdy )   CALL bdy_ice( kt )            ! -- bdy ice thermo 
     165         IF( ln_icethd .AND. ln_bdy )   CALL bdy_ice( kt )            ! -- bdy ice thermo 
    166166         ! 
    167167         ! 
     
    191191         ! --- ice thermodynamics --- ! 
    192192         !----------------------------! 
    193          IF( ln_limthd )            CALL ice_thd( kt )          ! -- Ice thermodynamics       
     193         IF( ln_icethd )            CALL ice_thd( kt )          ! -- Ice thermodynamics       
    194194 
    195195         ! MV MP 2016 
     
    197197         ! END MV MP 2016 
    198198 
    199          IF( ln_limthd )            CALL ice_cor( kt , 2 )      ! -- Corrections 
     199         IF( ln_icethd )            CALL ice_cor( kt , 2 )      ! -- Corrections 
    200200         ! --- 
    201201# if defined key_agrif 
     
    214214!!         IF( .NOT. Agrif_Root() )   CALL Agrif_ParentGrid_To_ChildGrid() 
    215215!!# endif 
    216          IF( ln_limdiahsb )         CALL ice_dia( kt )        ! -- Diagnostics and outputs  
     216         IF( ln_icediahsb )         CALL ice_dia( kt )        ! -- Diagnostics and outputs  
    217217         ! 
    218218                                    CALL ice_wri( 1 )         ! -- Ice outputs  
     
    223223         IF( lrst_ice )             CALL ice_rst_write( kt )  ! -- Ice restart file  
    224224         ! 
    225          IF( ln_limctl )            CALL ice_ctl( kt )        ! alerts in case of model crash 
     225         IF( ln_icectl )            CALL ice_ctl( kt )        ! alerts in case of model crash 
    226226         ! 
    227227      ENDIF   ! End sea-ice time step only 
     
    249249      !!---------------------------------------------------------------------- 
    250250      IF(lwp) WRITE(numout,*) 
    251       IF(lwp) WRITE(numout,*) 'ice_init : update ocean surface boudary condition'  
    252       IF(lwp) WRITE(numout,*) '~~~~~~~~   via Louvain la Neuve Ice Model (LIM-3) time stepping' 
     251      IF(lwp) WRITE(numout,*) 'ice_init: Arrays allocation & Initialization off all routines & init state'  
     252      IF(lwp) WRITE(numout,*) '~~~~~~~~' 
    253253      ! 
    254254      !                                ! Open the reference and configuration namelist files and namelist output file 
     
    285285      !                                ! Initial sea-ice state 
    286286      IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst 
    287          CALL ice_ist 
     287         CALL ice_istate 
    288288      ELSE                                    ! start from a restart file 
    289289         CALL ice_rst_read 
     
    360360      ENDIF 
    361361      ! 
    362       IF( ln_bdy .AND. ln_limdiachk )   CALL ctl_warn('ice_run_init: online conservation check does not work with BDY') 
     362      IF( ln_bdy .AND. ln_icediachk )   CALL ctl_warn('ice_run_init: online conservation check does not work with BDY') 
    363363      ! 
    364364      rdt_ice   = REAL(nn_fsbc) * rdt           !--- sea-ice timestep and inverse 
Note: See TracChangeset for help on using the changeset viewer.