Changeset 1468

Timestamp:

Dec 17, 2010, 12:25:17 PM (14 years ago)

Author:

idelkadi

Message:

Input file conv_param.data added to change convection parameters without changing them inside the code

File:

• LMDZ5/trunk/libf/phylmd/cv3_routines.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cv3_routines.F

@@ -89 +89 @@
 
       betad=10.0   ! original value (from convect 4.3)
+
+      OPEN(99,file='conv_param.data',status='old',
+     $          form='formatted',err=9999)
+      READ(99,*,end=9998) dpbase
+      READ(99,*,end=9998) pbcrit
+      READ(99,*,end=9998) ptcrit
+      READ(99,*,end=9998) sigdz
+      READ(99,*,end=9998) spfac
+9998  Continue
+      CLOSE(99)
+9999  Continue
+      WRITE(*,*)'dpbase=',dpbase
+      WRITE(*,*)'pbcrit=',pbcrit
+      WRITE(*,*)'ptcrit=',ptcrit
+      WRITE(*,*)'sigdz=',sigdz
+      WRITE(*,*)'spfac=',spfac
 
       return