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

continue naming

File:
1 edited

Legend:

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

    r8422 r8424  
    3535   USE iceitd         ! remapping thickness distribution 
    3636   USE icetab         ! 1D <==> 2D transformation 
    37    USE limvar         ! 
     37   USE icevar         ! 
    3838   USE icecons        ! conservation tests 
    3939   USE icectl         ! control print 
     
    101101      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    102102 
    103       CALL lim_var_glo2eqv 
     103      CALL ice_var_glo2eqv 
    104104 
    105105      !---------------------------------------------! 
     
    259259      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    260260      ! 
    261                          CALL lim_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
     261                         CALL ice_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
    262262      !                                                  !     & make sure at_i=SUM(a_i) & ato_i=1 where at_i=0 
    263263      !                    
Note: See TracChangeset for help on using the changeset viewer.