Changeset 3050 for LMDZ6/branches/DYNAMICO-conv/libf/dynphy_lonlat

Timestamp:

Oct 30, 2017, 10:20:20 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Initialisation manquantes et deplacement de Init_dimphy

Location:

LMDZ6/branches/DYNAMICO-conv/libf/dynphy_lonlat

Files:

• phydev/iniphysiq_mod.F90 (modified) (1 diff)
• phylmd/iniphysiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/DYNAMICO-conv/libf/dynphy_lonlat/phydev/iniphysiq_mod.F90

@@ -71 +71 @@
   CALL inifis(prad,pg,pr,pcpp)
   
-  ! Initialize dimphy module
-  CALL Init_dimphy(klon_omp,nlayer)
-
   ! Initialize tracer names, numbers, etc. for physics
   CALL init_infotrac_phy(nqtot,type_trac)

LMDZ6/branches/DYNAMICO-conv/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -115 +115 @@
 
   ! Initialize dimphy module (unless in 1D where it has already been done)
-  IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer)
+!  IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer)
 
   ! Copy over "offline" settings