Changeset 4853 for LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90

Timestamp:

Mar 19, 2024, 3:34:21 PM (2 months ago)

Author:

idelkadi

Message:

Ecrad update in LMDZ / Implementation of Ecrad double call in LMDZ

• version 1.6.1 (commit 210d7911380f53a788c3cad73b3cf9b4e022ef87)
• interface routines between lmdz and ecrad grouped in a new "lmdz" directory
• double call method redesigned so as to go through the Ecrad initialization and configuration part only once for the entire simulation
• clean-up in the read.F routine: delete unitules arguments
• modification of default gas model in namelist (default: ECCKD)

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90

@@ -17 +17 @@
 !   2018-04-20  A. Bozzo  Read optical properties at selected wavelengths
 
+#include "ecrad_config.h"
 
 module radiation_aerosol_optics_data
@@ -157 +158 @@
 
     use yomhook,              only : lhook, dr_hook, jphook
+#ifdef EASY_NETCDF_READ_MPI
+    use easy_netcdf_read_mpi, only : netcdf_file
+#else
     use easy_netcdf,          only : netcdf_file
+#endif
     use radiation_io,         only : nulerr, radiation_abort
 
@@ -401 +406 @@
   subroutine save_aerosol_optics(this, file_name, iverbose)
 
-    use yomhook,     only : lhook, dr_hook, jphook
-    use easy_netcdf, only : netcdf_file
+    use yomhook,              only : lhook, dr_hook, jphook
+    use easy_netcdf,          only : netcdf_file
 
     class(aerosol_optics_type), intent(inout) :: this