Changeset 1170

Timestamp:

Jun 8, 2009, 5:06:24 PM (15 years ago)

Author:

yann meurdesoif

Message:

Ajout du guide de F. Caudron, version séquentielle.
YM

Location:

LMDZ4/branches/LMDZ4-dev/libf/dyn3d

Files:

• guide_mod.F90 (added)
• invert_lat.F90 (added)
• leapfrog.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/leapfrog.F

@@ -11 +11 @@
 #endif
       USE infotrac
-
+      USE guide_mod, ONLY : guide_main
+      USE write_field
       IMPLICIT NONE
 
@@ -216 +217 @@
 
 #ifdef CPP_IOIPSL
-      if (ok_guide.and.(itaufin-itau-1)*dtvr.gt.21600) then
-        call guide(itau,ucov,vcov,teta,q,masse,ps)
-      else
-        IF(prt_level>9)WRITE(lunout,*)'leapfrog: attention on ne ',
-     .    'guide pas les 6 dernieres heures'
+      if (ok_guide) then
+        call guide_main(itau,ucov,vcov,teta,q,masse,ps)
       endif
 #endif
+
+
 c
 c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
@@ -287 +287 @@
      $  ( itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
      $    phi,conser,du,dv,dteta,dp,w, pbaru,pbarv, time+iday-day_ini )
+
 
 c-----------------------------------------------------------------------