Changeset 1321 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Aug 4, 2014, 10:05:38 AM (10 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. mistake corrected in previous commit.

File:

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

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

@@ -419 +419 @@
       endif
 
+      if (p_omeg .eq. -9999.) then
+        p_omeg = 8.*atan(1.)/p_daysec
+        print*,"new value of omega",p_omeg
+      endif
+
       rad = p_rad
       omeg = p_omeg
@@ -425 +430 @@
       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