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

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/phydev

Files:

• gr_fi_ecrit.F90 (modified) (1 diff)
• iophy.F90 (modified) (2 diffs)
• phyaqua_mod.F90 (modified) (1 diff)
• phyetat0.F90 (modified) (1 diff)
• phyredem.F90 (modified) (1 diff)
• phys_state_var_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phydev/gr_fi_ecrit.F90

@@ -1 @@
-!
+
 ! $Id $
-!
+
 SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
   IMPLICIT NONE
-  !
+
   ! Transfer a field from the full physics grid
   ! to a full 2D (lonxlat) grid suitable for outputs
-  !
+
   INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
   REAL,INTENT(IN) :: fi(nlon,nfield)

LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 module iophy
   
@@ -250 +250 @@
      endif
      CALL histwrite(nid,name,itau,fieldok,npstn,index2d)
-!
+
     endif
     deallocate(index2d)

LMDZ6/branches/Amaury_dev/libf/phydev/phyaqua_mod.F90

@@ -1 @@
-!
+
 ! $Id: $
-!
+
 MODULE phyaqua_mod
 

LMDZ6/branches/Amaury_dev/libf/phydev/phyetat0.F90

@@ -1 @@
-!
+
 ! $Id $
-!
+
 SUBROUTINE phyetat0(fichnom)
 ! Load initial state for the physics

LMDZ6/branches/Amaury_dev/libf/phydev/phyredem.F90

@@ -1 @@
-!
+
 ! $Id: $
-!
+
 SUBROUTINE phyredem (fichnom)
 

LMDZ6/branches/Amaury_dev/libf/phydev/phys_state_var_mod.F90

@@ -1 @@
-!
+
 ! $Id:  $
-!
+
 MODULE phys_state_var_mod
 !======================================================================

LMDZ6/branches/Amaury_dev/libf/phydev/physiq_mod.F90

@@ -28 +28 @@
 
       IMPLICIT none
-!
+
 ! Routine argument:
-!
+
       integer,intent(in) :: nlon ! number of atmospheric colums
       integer,intent(in) :: nlev ! number of vertical levels (should be =klev)