Changeset 3140 for LMDZ6/branches


Ignore:
Timestamp:
Dec 19, 2017, 3:57:43 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Initializing variable that prevented running in debug mode
Removing superfluous print
LF

Location:
LMDZ6/branches/IPSLCM6.0.14/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.14/libf/phylmd/physiq_mod.F90

    r3117 r3140  
    36383638          !
    36393639!IM 251017 begin
    3640                 print*,'physiq betaCRF global zdtime=',zdtime
     3640!                print*,'physiq betaCRF global zdtime=',zdtime
    36413641!IM 251017 end
    36423642          DO k=1, klev
  • LMDZ6/branches/IPSLCM6.0.14/libf/phylmd/regr_pr_time_av_m.F90

    r3087 r3140  
    312312      Sig_to0 = MIN(SigT_in,SigT_ou)               !--- highest tropopause
    313313      beta    = (Sig_bo0/Sig_to0)**gamm            !--- stretching exponent
    314       Sig_bot = MIN(Sig_bo0*beta,0.1*(9.+Sig_bot)) !--- must be <1
     314      Sig_bot = Sig_bo0*beta                       !--- lower bound
     315      Sig_bot = MIN(Sig_bot,0.1*(9.+Sig_bot))
     316!      Sig_bot = MIN(Sig_bo0*beta,0.1*(9.+Sig_bot)) !--- must be <1
    315317      ibot = locate(Sig_ou(:),Sig_bot)             !--- layer index
    316318      IF(ibot-iout<2) THEN                         !--- at least one layer thick
Note: See TracChangeset for help on using the changeset viewer.