Changeset 2343 for LMDZ5/trunk/libf/phylmd/phystokenc_mod.F90

Timestamp:

Aug 20, 2015, 12:02:53 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Another step towards a clean separation between physics and dynamics: adapted read_pstoke.F90, read_pstoke0.F90 initphysto.F90 and phystokenc.F90 (now module phystokenc_mod.F90) to not explicitely include/use file/modules from the dynamics.
In the process, added module "time_phylmdz_mod.F90" in the physics, which contains the information otherwise found in "temps.h" (which is in the dynamics) and should be used instead.
EM

File:

• LMDZ5/trunk/libf/phylmd/phystokenc_mod.F90 (moved) (moved from LMDZ5/trunk/libf/phylmd/phystokenc.F90) (5 diffs)

LMDZ5/trunk/libf/phylmd/phystokenc_mod.F90

@@ +1 @@
+!
+! $Id$
+!
+MODULE phystokenc_mod
+
+  IMPLICIT NONE
+
+  LOGICAL,SAVE :: offline
+!$OMP THREADPRIVATE(offline)
+  INTEGER,SAVE :: istphy
+!$OMP THREADPRIVATE(istphy)
+
+
+CONTAINS
+
+  SUBROUTINE init_phystokenc(offline_dyn,istphy_dyn)
+    IMPLICIT NONE
+    LOGICAL,INTENT(IN) :: offline_dyn
+    INTEGER,INTENT(IN) :: istphy_dyn
+
+    offline=offline_dyn
+    istphy=istphy_dyn
+
+  END SUBROUTINE init_phystokenc
+
 SUBROUTINE phystokenc (nlon,nlev,pdtphys,rlon,rlat, &
      pt,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
@@ -11 +36 @@
   USE infotrac_phy, ONLY : nqtot
   USE iophy
-  USE control_mod
   USE indice_sol_mod
   USE print_control_mod, ONLY: lunout
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
   
   IMPLICIT NONE
@@ -21 +46 @@
 ! Objet: Ecriture des variables pour transport offline
 !
-!======================================================================
-  INCLUDE "dimensions.h"
-  INCLUDE "tracstoke.h"
 !======================================================================
 
@@ -62 +84 @@
 !
   REAL rlon(klon), rlat(klon), dtime
-  REAL zx_tmp_3d(iim,jjm+1,klev),zx_tmp_2d(iim,jjm+1)
+  REAL zx_tmp_3d(nbp_lon,nbp_lat,klev),zx_tmp_2d(nbp_lon,nbp_lat)
 
 !   Couche limite:
@@ -362 +384 @@
 
 END SUBROUTINE phystokenc
+
+END MODULE phystokenc_mod