Changeset 538 for trunk/LMDZ.GENERIC/libf/phystd/inifis.F

Timestamp:

Feb 17, 2012, 11:54:16 PM (13 years ago)

Author:

rwordsworth

Message:

calc_cpp_mugaz changed to a check only in 3D

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inifis.F

@@ -177 +177 @@
          write(*,*) " enertest = ",enertest
 
+         write(*,*) "Check to see if cpp values used match gases.def ?"
+         check_cpp_match=.true. ! default value
+         call getin("check_cpp_match",check_cpp_match)
+         write(*,*) " check_cpp_match = ",check_cpp_match
+
+
          write(*,*) "call radiative transfer ?"
          callrad=.true. ! default value
@@ -192 +198 @@
          call getin("callgasvis",callgasvis)
          write(*,*) " callgasvis = ",callgasvis
-
+        
          write(*,*) "call continuum opacities in radiative transfer ?",
      &              "(matters only if callrad=T)"
-         Continuum=.false. ! default value
+         Continuum=.true. ! default value
          call getin("Continuum",Continuum)
          write(*,*) " Continuum = ",Continuum
-         
+
+ 
          write(*,*) "call turbulent vertical diffusion ?"
          calldifv=.true. ! default value
@@ -310 +317 @@
          endif
 
-
          write(*,*)"Use Newtonian cooling for radiative transfer?"
          newtonian=.false.
@@ -506 +512 @@
          endif
 
-         mugaz=0.
-         cpp=0.
+         mugaz=8.314*1000./pr
          call su_gases
          call calc_cpp_mugaz