Ignore:
Timestamp:
Aug 26, 2014, 8:15:53 AM (10 years ago)
Author:
aslmd
Message:

LMDZ.GENERIC. a few corrections in edu version (within deftank).

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1321 r1330  
    430430      mugaz = p_mugaz
    431431      daysec = p_daysec
     432
     433      if (p_omeg .eq. -9999.) then
     434        p_omeg = 8.*atan(1.)/p_daysec
     435        print*,"new value of omega",p_omeg
     436      endif
    432437
    433438      kappa = 8.314*1000./(p_mugaz*p_cpp) ! added by RDW
Note: See TracChangeset for help on using the changeset viewer.