Ignore:
Timestamp:
2017-08-07T18:09:12+02:00 (3 years ago)
Author:
clem
Message:

continue changing names

File:
1 edited

Legend:

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

    r8379 r8411  
    3636   USE limtab         ! 1D <==> 2D transformation 
    3737   USE limvar         ! 
    38    USE limcons        ! conservation tests 
    39    USE limctl         ! control print 
     38   USE icecons        ! conservation tests 
     39   USE icectl         ! control print 
    4040   ! 
    4141   USE in_out_manager ! I/O manager 
     
    9999       
    100100      ! conservation test 
    101       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     101      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    102102 
    103103      CALL lim_var_glo2eqv 
     
    257257      oa_i(:,:,:) = o_i(:,:,:) * a_i(:,:,:) 
    258258 
    259       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     259      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    260260      ! 
    261261                         CALL lim_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
     
    266266      IF( ln_limdO )     CALL lim_thd_lac                ! --- frazil ice growing in leads --- ! 
    267267      ! 
    268       IF( ln_limctl )    CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' )   ! control print 
    269       IF( ln_ctl )       CALL lim_prt3D( 'limthd' )      ! Control print 
     268      IF( ln_limctl )    CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' )   ! control print 
     269      IF( ln_ctl )       CALL ice_prt3D( 'limthd' )      ! Control print 
    270270      ! 
    271271      IF( nn_timing == 1 )  CALL timing_stop('limthd') 
Note: See TracChangeset for help on using the changeset viewer.