Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d

Timestamp:

Feb 18, 2026, 10:28:23 AM (2 weeks ago)

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

Location:

trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d

Files:

• kcm1d.F90 (modified) (4 diffs)
• rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/kcm1d.F90

@@ -11 +11 @@
                           varspec, varspec_data, nvarlayer
   use inifis_mod, only: inifis
-  use aerosol_mod, only: iniaerosol
-  use callcorrk_mod, only: callcorrk
+  use aerosol_global_variables , only: aerosol_init
+  use rad_correlatedk_mod, only: rad_correlatedk
   use comcstfi_mod
   use mod_grid_phy_lmdz, only : regular_lonlat
@@ -410 +410 @@
          
                
-     call iniaerosol
+     call aerosol_init
      
 
@@ -416 +416 @@
 
      !    Run radiative transfer
-     call callcorrk(1,nlayer,q,nq,qsurf,                  &
+     call rad_correlatedk(1,nlayer,q,nq,qsurf,                  &
           albedo_wv,albedo_equivalent,                    &
           emis,mu0,plev,play,temp,                        &
@@ -470 +470 @@
   firstcall=.false.
   lastcall=.true.
-  call callcorrk(1,nlayer,q,nq,qsurf,                          &
+  call rad_correlatedk(1,nlayer,q,nq,qsurf,                          &
        albedo_wv,albedo_equivalent,emis,mu0,plev,play,temp,    &
        tsurf,fract,dist_star,aerosol,muvar,                    &

trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/rcm1d.F

@@ -1161 +1161 @@
         IF (idt.eq.ndt) then       !test
          lastcall=.true.
-         call stellarlong(day*1.0,zls)
+         call ephemeris_stellar_longitude(day*1.0,zls)
 !         write(103,*) 'Ls=',zls*180./pi
 !         write(103,*) 'Lat=', latitude(1)*180./pi