Changeset 2600 for LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_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/bilan_dyn_loc.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

@@ -18 +18 @@
       USE write_field_loc
       USE comconst_mod, ONLY: cpp, pi
+      USE comvert_mod, ONLY: presnivs
+      
       IMPLICIT NONE
 
       include "dimensions.h"
       include "paramet.h"
-      include "comvert.h"
       include "comgeom2.h"
       include "temps.h"
@@ -598 +599 @@
         do l=1,llm
           Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ) 
-     .                          /masse_cum(:,jjb:jje,l)
+     .                                /masse_cum(:,jjb:jje,l)
         enddo
 !$OMP ENDDO NOWAIT