Changeset 1659 for LMDZ5/trunk/libf

Timestamp:

Oct 5, 2012, 10:22:14 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Modification pour etre consistant

---

Modification for consistency

File:

• LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -1600 +1600 @@
 #ifdef CPP_IOIPSL
               if (ok_dyn_ins) then
-                 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
+                 CALL writehist_loc(itau,vcov,ucov,teta,phi,q,
+     &                              masse,ps,phis)
               endif ! of if (ok_dyn_ins)
 #endif