Changeset 6163 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Apr 10, 2026, 10:24:25 AM (4 hours ago)

Author:

idelkadi

Message:

Rewriting and simplifying the interface between the LMDZ code and the radiative transfer codes (continued)

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -119 +119 @@
     USE readaerosol_mod, ONLY : init_aero_fromfile
     USE readaerosolstrato_m, ONLY : init_readaerosolstrato
-    USE radlwsw_m, ONLY: radlwsw
+    USE lmdz_call_radiatifcodes_m, ONLY: lmdz_call_radiatifcodes
     USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
     USE regr_pr_time_av_m, ONLY: regr_pr_time_av
@@ -1106 +1106 @@
     ! retros liees aux CRF
     REAL, dimension(klon, klev) :: cldtaurad   ! epaisseur optique
-    ! pour radlwsw pour
+    ! pour lmdz_call_radiatifcodes pour
     ! tester "CRF off"
     REAL, dimension(klon, klev) :: cldtaupirad ! epaisseur optique
-    ! pour radlwsw pour
+    ! pour lmdz_call_radiatifcodes pour
     ! tester "CRF off"
     REAL, dimension(klon, klev) :: cldemirad   ! emissivite pour
-    ! radlwsw pour tester
+    ! lmdz_call_radiatifcodes pour tester
     ! "CRF off"
     REAL, dimension(klon, klev) :: cldfrarad   ! fraction nuageuse
@@ -2570 +2570 @@
     ! Calculs de l'orbite.
     ! Necessaires pour le rayonnement et la surface (calcul de l'albedo).
-    ! doit donc etre plac\'e avant radlwsw et pbl_surface
+    ! doit donc etre plac\'e avant lmdz_call_radiatifcodes et pbl_surface
 
     ! !!   jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -4428 +4428 @@
 
           IF (prt_level .GE.10) THEN
-             print *,' ->radlwsw, number 1 '
+             print *,' ->lmdz_call_radiatifcodes, number 1 '
           ENDIF
           !
-          ! AI namelist utilise pour l appel principal de radlwsw (ecrad)
+          ! AI namelist utilise pour l appel principal de lmdz_call_radiatifcodes (ecrad)
           namelist_ecrad_file='namelist_ecrad'
           !
-          CALL radlwsw &
+          CALL lmdz_call_radiatifcodes &
                (debut, dist, rmu0, fract,  &
                                 !albedo SB >>>
@@ -4507 +4507 @@
              !
              IF (prt_level .GE.10) THEN
-                print *,' ->radlwsw, number 2 '
+                print *,' ->lmdz_call_radiatifcodes, number 2 '
              ENDIF
              !
              namelist_ecrad_file='namelist_ecrad'
              !
-             CALL radlwsw &
+             CALL lmdz_call_radiatifcodes &
                   (debut, dist, rmu0, fract,  &
                                 !albedo SB >>>
@@ -4562 +4562 @@
              !                print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad
              namelist_ecrad_file='namelist_ecrad_s2'
-             CALL radlwsw &
+             CALL lmdz_call_radiatifcodes &
                   (debut, dist, rmu0, fract,  &
                   paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, &
@@ -4634 +4634 @@
 
     !
-    ! Calculer radsol a l'exterieur de radlwsw
+    ! Calculer radsol a l'exterieur de lmdz_call_radiatifcodes
     ! pour prendre en compte le cycle diurne
     ! recode par Olivier Boucher en sept 2015