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

    r8512 r8514  
    6464      ENDIF 
    6565      !                             !--- conservation test 
    66       IF( ln_limdiachk )   CALL ice_cons_hsm(0, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     66      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    6767      ! 
    6868      ! 
     
    8686     
    8787      !                             !----------------------------------------------------- 
    88       IF (  nn_icesal == 2  ) THEN  !  salinity stays in bounds [Simin,Simax]            ! 
     88      IF ( nn_icesal == 2 ) THEN    !  salinity must stay in bounds [Simin,Simax]        ! 
    8989      !                             !----------------------------------------------------- 
    9090         zzc = rhoic * r1_rdtice 
     
    176176      ! 
    177177      !                                !--- conservation test 
    178       IF( ln_limdiachk )   CALL ice_cons_hsm(1, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     178      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    179179      ! 
    180180      !                                !--- control prints 
    181181      IF( ln_ctl )                    CALL ice_prt3D( 'icecor' ) 
    182       IF( ln_limctl .AND. kn == 2 )   CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 
     182      IF( ln_icectl .AND. kn == 2 )   CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 
    183183      ! 
    184184      IF( nn_timing == 1 )   CALL timing_stop('icecor') 
Note: See TracChangeset for help on using the changeset viewer.