Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

Jul 22, 2024, 9:29:09 PM (6 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• abort_physic.F90 (modified) (1 diff)
• ioipsl_getin_p_mod.F90 (modified) (1 diff)
• mod_grid_phy_lmdz.F90 (modified) (1 diff)
• mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)
• mod_phys_lmdz_mpi_transfert.F90 (modified) (1 diff)
• mod_phys_lmdz_omp_data.F90 (modified) (1 diff)
• mod_phys_lmdz_omp_transfert.F90 (modified) (1 diff)
• mod_phys_lmdz_para.F90 (modified) (1 diff)
• mod_phys_lmdz_transfert_para.F90 (modified) (1 diff)
• physics_distribution_mod.F90 (modified) (3 diffs)
• write_field_phy.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/abort_physic.F90

@@ -11 +11 @@
       USE print_control_mod, ONLY: lunout
       IMPLICIT NONE
-!
+
 ! Stops the simulation cleanly, closing files and printing various
 ! comments
-!
+
 !  Input: modname = name of calling program
 !         message = stuff to print

LMDZ6/branches/Amaury_dev/libf/phy_common/ioipsl_getin_p_mod.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE ioipsl_getin_p_mod
 ! To use getin in a parallel context

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_grid_phy_lmdz.F90

@@ -1 @@
-!
+
 !$Id $
-!
+
 MODULE mod_grid_phy_lmdz
 

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -1 @@
-!
+
 !$Id$
-!
+
 MODULE mod_phys_lmdz_mpi_data
   USE lmdz_mpi 

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90

@@ -1 @@
-!
+
 !$Id$
-!
+
 MODULE mod_phys_lmdz_mpi_transfert
 

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_omp_data.F90

@@ -1 @@
-!
+
 !$Id$
-!
+
 MODULE mod_phys_lmdz_omp_data
 

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

@@ -1 @@
-!
+
 !$Header$
-!
+
 MODULE mod_phys_lmdz_omp_transfert
 

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_para.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE mod_phys_lmdz_para
   USE mod_phys_lmdz_transfert_para

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_transfert_para.F90

@@ -1 @@
-!
+
 !$Id$
-!
+
 MODULE mod_phys_lmdz_transfert_para
 

LMDZ6/branches/Amaury_dev/libf/phy_common/physics_distribution_mod.F90

@@ -1 @@
-!
+
 !$Id$
-!
+
 MODULE physics_distribution_mod
 
@@ -68 +68 @@
 !!$OMP PARALLEL
 !    CALL Init_dimphy(klon_omp,nbp_lev)
-!
+
 !#ifdef REPROBUS
 !! Initialization of Reprobus
@@ -74 +74 @@
 !    END IF
 !#endif
-!
+
 !!$OMP END PARALLEL
  

LMDZ6/branches/Amaury_dev/libf/phy_common/write_field_phy.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE write_field_phy