Changeset 2600 for LMDZ5/trunk/libf/dyn3dpar/bilan_dyn_p.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/dyn3dpar/bilan_dyn_p.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dpar/bilan_dyn_p.F

@@ -18 +18 @@
       use write_field_p
       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"
@@ -202 +203 @@
 
 !        if (i_sortie.eq.1) then
-!        file='dynzon'
+!         file='dynzon'
 !         if (mpi_rank==0) then
-!        call inigrads(ifile,1
+!         call inigrads(ifile,1
 !     s  ,0.,180./pi,0.,0.,jjm,rlatv,-90.,90.,180./pi
 !     s  ,llm,presnivs,1.
@@ -568 +569 @@
         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