Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90

@@ -1 @@
-!
+
 MODULE oasis
-!
+
 ! This module contains subroutines for initialization, sending and receiving 
 ! towards the coupler OASIS3. It also contains some parameters for the coupling.
-!
+
 ! This module should always be compiled. With the coupler OASIS3 available the cpp key
 ! CPP_COUPLE should be set and the entier of this file will then be compiled. 
 ! In a forced mode CPP_COUPLE should not be defined and the compilation ends before 
 ! the CONTAINS, without compiling the subroutines.
-!
+
   USE dimphy 
   USE mod_phys_lmdz_para
@@ -107 +107 @@
 !**** *INICMA*  - Initialize coupled mode communication for atmosphere
 !                 and exchange some initial information with Oasis
-!
+
 !     Rewrite to take the PRISM/psmile library into account
 !     LF 09/2003
-!
+
     USE IOIPSL
     USE surface_data, ONLY : version_ocean
@@ -150 +150 @@
     WRITE(lunout,*) ' '
 
-!
 ! Define the model name
-!
+
     IF (grid_type==unstructured) THEN
         clmodnam = 'icosa'                 ! as in $NBMODEL in Cpl/Nam/namcouple.tmp
@@ -399 +398 @@
   END SUBROUTINE inicma
 
-!
-!************************************************************************************
-!
+!************************************************************************************
 
   SUBROUTINE fromcpl(ktime, tab_get)
@@ -408 +405 @@
 ! and Sea-Ice provided by the coupler. Adaptation to psmile library
 !======================================================================
-!
+
     USE print_control_mod, ONLY: lunout
     USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
@@ -459 +456 @@
   END SUBROUTINE fromcpl
 
-!
-!************************************************************************************
-! 
+!************************************************************************************
 
   SUBROUTINE intocpl(ktime, last, tab_put) 
@@ -469 +464 @@
 ! IF last time step, writes output fields to binary files.
 ! ======================================================================
-!
-! 
+
+
     USE print_control_mod, ONLY: lunout
     USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat