Changeset 495 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

Timestamp:

Mar 4, 2004, 4:11:16 PM (20 years ago)

Author:

lmdzadmin

Message:

Optimisation de differentes routines, IM, MAF, FH
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

@@ -153 +153 @@
       LOGICAL ok_nudge
       PARAMETER (ok_nudge = .false.)
+c
 
 c-----------------------------------------------------------------------
@@ -367 +368 @@
 c   ----------------------------------
 
+
    1  CONTINUE
 
@@ -449 +451 @@
          ELSE IF( iq.EQ. nqmx )   THEN
 c
-            iapp_tracvl = 5
+c           iapp_tracvl = 5
+            iapp_tracvl = iperiod
+            print*,'***WARNING***: iapp_tracvl = iperiod'
 c
 cccc     iapp_tracvl est la frequence en pas du groupement des flux
 cccc      de masse pour  Van-Leer dans la routine  tracvl  .
 c
-            CALL vanleer(numvanle,iapp_tracvl,nqmx,q,pbaru,pbarv,
+c            CALL vanleer(numvanle,iapp_tracvl,nqmx,q,pbaru,pbarv,
+            CALL vanleer(numvanle,iapp_tracvl,2,q,pbaru,pbarv,
      *                      p, masse, dq,  iadv(1), teta, pk     )
 c
+            print*,'***WARNING***: Appel vanleer avec 2 traceurs'
+            print*,'               et non nqmx'
 c                   ...  Modif  F.Codron  ....
 c
@@ -483 +490 @@
      $         dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis ,
      $              finvmaold                                    )
+
 
 c .P.Le Van (26/04/94  ajout de  finvpold dans l'appel d'integrd)
@@ -660 +668 @@
             IF( itau. EQ. itaufinp1 ) then  
 
+
               abort_message = 'Simulation finished'
               call abort_gcm(modname,abort_message,0)