Changeset 4388 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/radlwsw_m.F90

Timestamp:

Jan 20, 2023, 3:41:14 PM (17 months ago)

Author:

idelkadi

Message:

Code cleanup:

• Removal of unnecessary arguments in the LMDZ-ECRAD interface routine.
• deletion of useless comments

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/radlwsw_m.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/radlwsw_m.F90

@@ -1348 +1348 @@
       CALL RADIATION_SCHEME &
       & (ist, iend, klon, klev, naero_grp, NSW, &
-! ??? naero_tot
       & day_cur, current_time, & 
+!       Cste solaire/(d_Terre-Soleil)**2
       & SOLARIRAD, &
+!       Cos(angle zin), temp sol              
       & rmu0, tsol, &
 !       Albedo diffuse et directe
@@ -1356 +1357 @@
 !       Emessivite : PEMIS_WINDOW (???), &
       & ZEMIS, ZEMISW, &
-!       PCCN_LAND, PCCN_SEA, & ???
-      & pctsrf(:,is_ter), pctsrf(:,is_oce), &
 !       longitude(rad), sin(latitude), PMASQ_ ???
-      & ZGELAM, ZGEMU, zmasq, &
-!       pression et temp aux milieux
-      & pplay_i, t_i, &
-!       PTEMPERATURE_H ?, 
+      & ZGELAM, ZGEMU, &
+!       Temp et pres aux interf, vapeur eau, Satur spec humid 
       & paprs_i, ZTH_i, q_i, qsat_i, & 
 !       Gas
@@ -1368 +1365 @@
        & ZCCL4, POZON_i(:,:,1), ZO2, &
 !       nuages :
-      & cldfra_i, flwc_i, fiwc_i, ZQ_RAIN, ZQ_SNOW, &  
+      & cldfra_i, flwc_i, fiwc_i, ZQ_SNOW, &
+!       rayons effectifs des gouttelettes              
       & ref_liq_i, ref_ice_i, &
 !       aerosols