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

changes in style - part5 - very nearly finished

File:
1 edited

Legend:

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

    r8514 r8515  
    5252   ! 
    5353   ! ** namelist (namice_rdgrft) ** 
    54    REAL(wp) ::   rn_cs            ! fraction of shearing energy contributing to ridging             
     54   REAL(wp) ::   rn_csrdg         ! fraction of shearing energy contributing to ridging             
    5555   LOGICAL  ::   ln_partf_lin     ! participation function linear (Thorndike et al. (1975)) 
    5656   REAL(wp) ::   rn_gstar         !    fractional area of young ice contributing to ridging 
     
    170170            !  (thick, newly ridged ice). 
    171171 
    172             closing_net(ji,jj) = rn_cs * 0.5_wp * ( delta_i(ji,jj) - ABS( divu_i(ji,jj) ) ) - MIN( divu_i(ji,jj), 0._wp ) 
     172            closing_net(ji,jj) = rn_csrdg * 0.5_wp * ( delta_i(ji,jj) - ABS( divu_i(ji,jj) ) ) - MIN( divu_i(ji,jj), 0._wp ) 
    173173 
    174174            ! 2.2 divu_adv 
     
    867867      NAMELIST/namice_rdgrft/ ln_str_H79, rn_pstar, rn_crhg, & 
    868868         &                    ln_str_R75, rn_perdg,          & 
    869          &                    rn_cs     ,                    & 
     869         &                    rn_csrdg  ,                    & 
    870870         &                    ln_partf_lin, rn_gstar,        & 
    871871         &                    ln_partf_exp, rn_astar,        &  
     
    893893         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  
    895          WRITE(numout,*) '      Fraction of shear energy contributing to ridging         rn_cs        = ', rn_cs  
     895         WRITE(numout,*) '      Fraction of shear energy contributing to ridging         rn_csrdg     = ', rn_csrdg  
    896896         WRITE(numout,*) '      linear ridging participation function                    ln_partf_lin = ', ln_partf_lin 
    897897         WRITE(numout,*) '            Fraction of ice coverage contributing to ridging   rn_gstar     = ', rn_gstar 
Note: See TracChangeset for help on using the changeset viewer.