Changeset 2600 for LMDZ5/trunk/libf/dyn3d/fluxstokenc.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/dyn3d/fluxstokenc.F (modified) (5 diffs)

LMDZ5/trunk/libf/dyn3d/fluxstokenc.F

@@ -18 +18 @@
       include "dimensions.h"
       include "paramet.h"
-      include "comvert.h"
       include "comgeom.h"
       include "tracstoke.h"
@@ -35 +34 @@
 
       REAL pbarvst(iip1,jjp1,llm),zistdyn
-        real dtcum
+        real dtcum
 
       INTEGER iadvtr,ndex(1) 
@@ -59 +58 @@
       if(first) then
 
-        CALL initfluxsto( 'fluxstoke',
+        CALL initfluxsto( 'fluxstoke',
      .  time_step,istdyn* time_step,istdyn* time_step,
      .  fluxid,fluxvid,fluxdid) 
-        
-        ndex(1) = 0
+        
+        ndex(1) = 0
         call histwrite(fluxid, 'phis', 1, phis, iip1*jjp1, ndex)
         call histwrite(fluxid, 'aire', 1, aire, iip1*jjp1, ndex)
-        
-        ndex(1) = 0
+        
+        ndex(1) = 0
         nscal = 1
         tst(1) = time_step
@@ -75 +74 @@
         istp(1)= istphy
         call histwrite(fluxdid, 'istphy', 1, istp, nscal, ndex)
-        
-        first = .false.
+        
+        first = .false.
 
       endif
@@ -140 +139 @@
 
          iadvtr=0
-        write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau
-        
-        call histwrite(fluxid, 'masse', itau, massem,
+        write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau
+        
+        call histwrite(fluxid, 'masse', itau, massem,
      .               iip1*jjp1*llm, ndex)
-        
-        call histwrite(fluxid, 'pbaru', itau, pbarug,
+        
+        call histwrite(fluxid, 'pbaru', itau, pbarug,
      .               iip1*jjp1*llm, ndex)
-        
-        call histwrite(fluxvid, 'pbarv', itau, pbarvg,
+        
+        call histwrite(fluxvid, 'pbarv', itau, pbarvg,
      .               iip1*jjm*llm, ndex)
-        
+        
         call histwrite(fluxid, 'w' ,itau, wg, 
      .             iip1*jjp1*llm, ndex) 
-        
-        call histwrite(fluxid, 'teta' ,itau, tetac, 
+        
+        call histwrite(fluxid, 'teta' ,itau, tetac, 
      .             iip1*jjp1*llm, ndex) 
-        
-        call histwrite(fluxid, 'phi' ,itau, phic, 
+        
+        call histwrite(fluxid, 'phi' ,itau, phic, 
      .             iip1*jjp1*llm, ndex) 
-        
+        
 C