Changeset 2600 for LMDZ5/trunk/libf/dyn3dmem/advtrac_loc.F

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/advtrac_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/advtrac_loc.F

@@ -32 +32 @@
       include "dimensions.h"
       include "paramet.h"
-      include "comvert.h"
       include "comdissip.h"
       include "comgeom2.h"
@@ -172 +171 @@
 #endif
          
-          GOTO 1234     
+          GOTO 1234     
 c-----------------------------------------------------------
 c     Appel des sous programmes d'advection
@@ -184 +183 @@
         if(iadv(iq).eq.10) THEN
      
-!LF         call vlsplt_p(q(1,1,iq),2.,massem,wg,pbarug,pbarvg,dtvr)
+!LF            call vlsplt_p(q(1,1,iq),2.,massem,wg,pbarug,pbarvg,dtvr)
 
 c   ----------------------------------------------------------------