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

    r8512 r8514  
    7070      ! 
    7171      !                             ! -- conservation test 
    72       IF( ln_limdiachk )   CALL ice_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     72      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    7373      !                       
    7474      IF( ln_landfast ) THEN        ! -- Landfast ice parameterization: define max bottom friction 
     
    9696      ! 
    9797      !                                                   !- conservation test 
    98       IF( ln_limdiachk   )   CALL ice_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     98      IF( ln_icediachk   )   CALL ice_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    9999      IF( ln_ctl         )   CALL ice_prt3D  ('icerhg')   !- Control prints 
    100100      IF( nn_timing == 1 )   CALL timing_stop('icerhg')   !- timing 
     
    132132      IF(lwp) THEN                     ! control print 
    133133         WRITE(numout,*) 
    134          WRITE(numout,*) 'ice_rhg_init : ice parameters for ice dynamics ' 
     134         WRITE(numout,*) 'ice_rhg_init: ice parameters for ice dynamics ' 
    135135         WRITE(numout,*) '~~~~~~~~~~~~' 
    136136         WRITE(numout,*) '   Namelist namice_rhg' 
Note: See TracChangeset for help on using the changeset viewer.