Changeset 1795 for LMDZ5/branches/testing/libf/dyn3dmem/inigeom.F

Timestamp:

Jul 18, 2013, 10:20:28 AM (12 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/inigeom.F (modified) (1 diff)

LMDZ5/branches/testing/libf/dyn3dmem/inigeom.F

@@ -426 +426 @@
          radclatm = 0.5* rad * coslatm
 c
+         ai14            = un4rad2 * coslatp * yprp
+         ai23            = un4rad2 * coslatm * yprm
          DO 32 i = 1,iim
          xprp            = xprimp025( i )
          xprm            = xprimm025( i )
       
-         ai14            = un4rad2 * coslatp * yprp
-         ai23            = un4rad2 * coslatm * yprm
          aireij1 ( i,j ) = ai14 * xprp
          aireij2 ( i,j ) = ai23 * xprp