Context Navigation

phylmd

Timestamp:

Oct 28, 2024, 1:11:48 PM (7 weeks ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

Location:

LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Files:

-                      r5281
+                      r5282
 #endif
+  USE iniprint_mod_h
   USE comgeom2_mod_h
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
 …
-  include "iniprint.h"
   REAL               :: masque(iip1,jjp1)             !--- CONTINENTAL MASK

-                      r5281
+                      r5282
   USE comdissnew_mod_h
   USE comgeom2_mod_h
+  USE iniprint_mod_h
 IMPLICIT NONE
 …
   PUBLIC :: etat0dyn_netcdf
-  include "iniprint.h"

-                      r5281
+                      r5282
   USE dimsoil_mod_h, ONLY: nsoilmx
   USE comgeom2_mod_h
+  USE clesphys_mod_h
+  USE iniprint_mod_h
   PRIVATE
   PUBLIC :: etat0phys_netcdf
-  include "iniprint.h"
-  include "clesphys.h"
   REAL, SAVE :: deg2rad
   REAL, SAVE, ALLOCATABLE :: tsol(:)

-                      r5281
+                      r5282
   USE bands, ONLY : distrib_phys
 #endif
+  USE iniprint_mod_h
   USE comgeom_mod_h
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
 …
-  include "iniprint.h"
   include "tracstoke.h"

-                      r5281
+                      r5282
 !*******************************************************************************
+  USE iniprint_mod_h
   USE comgeom2_mod_h
   USE indice_sol_mod,     ONLY: is_ter, is_oce, is_oce, is_lic, epsfra
 …
   PRIVATE
   PUBLIC :: start_init_subsurf
-  include "iniprint.h"
 CONTAINS

-                      r5281
+                      r5282
 !-------------------------------------------------------------------------------
 #ifndef CPP_1D
+  USE iniprint_mod_h
   USE comgeom2_mod_h
   USE indice_sol_mod
 …
 !-------------------------------------------------------------------------------
 ! Arguments:
-  include "iniprint.h"

Note: See TracChangeset for help on using the changeset viewer.