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

    r8512 r8514  
    141141      ENDIF       
    142142      !                    ! conservation test 
    143       IF( ln_limdiachk )   CALL ice_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     143      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    144144 
    145145      !-----------------------------------------------------------------------------! 
     
    288288      !-----------------------------------------------------------------------------! 
    289289      !                    ! conservation test 
    290       IF( ln_limdiachk )   CALL ice_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     290      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    291291 
    292292      !                    ! control prints 
     
    774774 
    775775      !                              !--------------------------------------------------! 
    776       IF( ln_str_Rot ) THEN          ! Ice strength => Rothrock (1975) method           ! 
     776      IF( ln_str_R75 ) THEN          ! Ice strength => Rothrock (1975) method           ! 
    777777      !                              !--------------------------------------------------! 
    778778         z1_3 = 1._wp / 3._wp 
     
    793793         ismooth = 1 
    794794      !                              !--------------------------------------------------! 
    795       ELSEIF( ln_str_Hib ) THEN      ! Ice strength => Hibler (1979) method             ! 
     795      ELSEIF( ln_str_H79 ) THEN      ! Ice strength => Hibler (1979) method             ! 
    796796      !                              !--------------------------------------------------! 
    797797         strength(:,:) = rn_pstar * vt_i(:,:) * EXP( - rn_crhg * ( 1._wp - at_i(:,:) )  ) * tmask(:,:,1) 
     
    865865      INTEGER :: ios                 ! Local integer output status for namelist read 
    866866      !! 
    867       NAMELIST/namice_rdgrft/ ln_str_Hib, rn_pstar, rn_crhg, & 
    868          &                    ln_str_Rot, rn_perdg,          & 
     867      NAMELIST/namice_rdgrft/ ln_str_H79, rn_pstar, rn_crhg, & 
     868         &                    ln_str_R75, rn_perdg,          & 
    869869         &                    rn_cs     ,                    & 
    870870         &                    ln_partf_lin, rn_gstar,        & 
     
    885885      IF (lwp) THEN                          ! control print 
    886886         WRITE(numout,*) 
    887          WRITE(numout,*) 'ice_rdgrft_init : ice parameters for ridging/rafting ' 
     887         WRITE(numout,*) 'ice_rdgrft_init: ice parameters for ridging/rafting ' 
    888888         WRITE(numout,*) '~~~~~~~~~~~~~~~' 
    889889         WRITE(numout,*) '   Namelist namice_rdgrft' 
    890          WRITE(numout,*) '      ice strength parameterization Hibler (1979)              ln_str_Hib   = ', ln_str_Hib  
     890         WRITE(numout,*) '      ice strength parameterization Hibler (1979)              ln_str_H79   = ', ln_str_H79  
    891891         WRITE(numout,*) '            1st bulk-rheology parameter                        rn_pstar     = ', rn_pstar 
    892892         WRITE(numout,*) '            2nd bulk-rhelogy parameter                         rn_crhg      = ', rn_crhg 
    893          WRITE(numout,*) '      ice strength parameterization Rothrock (1975)            ln_str_Rot   = ', ln_str_Rot  
     893         WRITE(numout,*) '      ice strength parameterization Rothrock (1975)            ln_str_R75   = ', ln_str_R75  
    894894         WRITE(numout,*) '            Ratio of ridging work to PotEner change in ridging rn_perdg     = ', rn_perdg  
    895895         WRITE(numout,*) '      Fraction of shear energy contributing to ridging         rn_cs        = ', rn_cs  
     
    910910      ENDIF 
    911911      ! 
    912       IF ( ( ln_str_Hib .AND. ln_str_Rot ) .OR. ( .NOT.ln_str_Hib .AND. .NOT.ln_str_Rot ) ) THEN 
    913          CALL ctl_stop( 'ice_rdgrft_init: choose one and only one formulation for ice strength (ln_str_Hib or ln_str_Rot)' ) 
     912      IF ( ( ln_str_H79 .AND. ln_str_R75 ) .OR. ( .NOT.ln_str_H79 .AND. .NOT.ln_str_R75 ) ) THEN 
     913         CALL ctl_stop( 'ice_rdgrft_init: choose one and only one formulation for ice strength (ln_str_H79 or ln_str_R75)' ) 
    914914      ENDIF 
    915915      ! 
Note: See TracChangeset for help on using the changeset viewer.