Changeset 3140

Timestamp:

Dec 19, 2017, 3:57:43 PM (6 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:

• physiq_mod.F90 (modified) (1 diff)
• regr_pr_time_av_m.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.14/libf/phylmd/physiq_mod.F90

@@ -3638 +3638 @@
           !
 !IM 251017 begin
-                print*,'physiq betaCRF global zdtime=',zdtime
+!                print*,'physiq betaCRF global zdtime=',zdtime
 !IM 251017 end
           DO k=1, klev

LMDZ6/branches/IPSLCM6.0.14/libf/phylmd/regr_pr_time_av_m.F90

@@ -312 +312 @@
       Sig_to0 = MIN(SigT_in,SigT_ou)               !--- highest tropopause
       beta    = (Sig_bo0/Sig_to0)**gamm            !--- stretching exponent
-      Sig_bot = MIN(Sig_bo0*beta,0.1*(9.+Sig_bot)) !--- must be <1
+      Sig_bot = Sig_bo0*beta                       !--- lower bound
+      Sig_bot = MIN(Sig_bot,0.1*(9.+Sig_bot)) 
+!      Sig_bot = MIN(Sig_bo0*beta,0.1*(9.+Sig_bot)) !--- must be <1
       ibot = locate(Sig_ou(:),Sig_bot)             !--- layer index
       IF(ibot-iout<2) THEN                         !--- at least one layer thick