Changeset 4853 for LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_spartacus_sw.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_spartacus_sw.F90 (modified) (3 diffs)

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

@@ -87 +87 @@
     use radiation_constants, only      : Pi, GasConstantDryAir, &
          &                               AccelDueToGravity
-    USE mod_phys_lmdz_para
 
     implicit none
@@ -327 +326 @@
       write(nulout,'(a)',advance='no') '  Processing columns'
     end if
-
-      print*,'Dans radiation_spartacus, mpi_rank, omp_rank, &
-              size, chape inv_cloud = ',&
-              mpi_rank, omp_rank, &
-              shape(cloud%inv_cloud_effective_size), &
-              size(cloud%inv_cloud_effective_size)
 
     ! Main loop over columns
@@ -504 +497 @@
                &  .not. (nreg == 2 .and. cloud%fraction(jcol,jlev) &
                &  > 1.0-config%cloud_fraction_threshold)) then
-!           print*,' Dans radiation_spartacus mpi_rank, omp_rank, jcol, jlev, &
-!            &     cloud%inv_cloud_effective_size =', mpi_rank, &
-!            &     omp_rank, jcol, jlev, &
-!            &     cloud%inv_cloud_effective_size(jcol,jlev)
             if (cloud%inv_cloud_effective_size(jcol,jlev) > 0.0_jprb) then
               ! 3D effects are only simulated if