Changeset 2597 for LMDZ5/trunk/libf/dynphy_lonlat/calfis_p.F

Timestamp:

Jul 22, 2016, 8:44:47 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dynphy_lonlat/calfis_p.F (modified) (3 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/calfis_p.F

@@ -47 +47 @@
       USE callphysiq_mod, ONLY: call_physiq
 #endif 
+      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
 
       IMPLICIT NONE
@@ -110 +111 @@
       PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
 
-#include "comconst.h"
 #include "comvert.h"
 #include "comgeom2.h"
@@ -159 +159 @@
       REAL,ALLOCATABLE,SAVE :: zphi(:,:),zphis(:)
 c
-      REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
+!      REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
+      REAL :: zrot(iip1,jjm,llm)
       REAL,ALLOCATABLE,SAVE :: zufi(:,:), zvfi(:,:), zrfi(:,:)
       REAL,ALLOCATABLE,SAVE :: ztfi(:,:),zqfi(:,:,:)