Changeset 1320 for trunk/LMDZ.GENERIC/libf

Timestamp:

Aug 3, 2014, 7:36:52 PM (10 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. newstart. set p_omeg to 2pi/daylength if equal to -9999. set patm to preff if equal to -9999. useful for simple runs where consistency is needed (e.g. teaching).

File:

• trunk/LMDZ.GENERIC/libf/phystd/newstart.F (modified) (2 diffs)

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

@@ -425 +425 @@
       mugaz = p_mugaz
       daysec = p_daysec
+
+      if (p_omeg .eq. -9999.) then
+        p_omeg = 8.*atan(1.)/p_daysec
+        print*,"new value of omega",p_omeg
+      endif
 
       kappa = 8.314*1000./(p_mugaz*p_cpp) ! added by RDW
@@ -639 +644 @@
  201       read(*,*,iostat=ierr) patm
             if(ierr.ne.0) goto 201
+            write(*,*) patm
+            if (patm.eq.-9999.) then
+              patm = preff
+              write(*,*) "we set patm = preff", preff
+            endif
              write(*,*)
              write(*,*) ' new ps everywhere (Pa) = ', patm