Changeset 3946 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F

Timestamp:

Oct 31, 2025, 5:36:58 PM (4 weeks ago)

Author:

emillour

Message:

Generic PCM:
Minor fix in start2archive: the dimension for albedoS (albedo recasted on the
dynamics scalar grid) shoudld be ip1jmp1.
EM

File:

• trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F

@@ -67 +67 @@
       REAL p3d(iip1, jjp1, llm+1)            ! pression aux interfaces
       
-c Variable Physiques (grille physique)
-c ------------------------------------
+c Variables defined on the physics grid (ngridmx columns)
+c ------------------------------------------------------
       REAL tsurf(ngridmx)        ! Surface temperature
       REAL,ALLOCATABLE :: tsoil(:,:) ! Soil temperature
@@ -92 +92 @@
 
 
-c Variable naturelle / grille scalaire
+c Variables defined on the scalar grid
 c ------------------------------------
       REAL T(ip1jmp1,llm),us(ip1jmp1,llm),vs(ip1jmp1,llm)
@@ -102 +102 @@
       REAL,ALLOCATABLE :: qsurfS(:,:)
       REAL emisS(ip1jmp1)
-      REAL :: albedoS(ngridmx) ! surface albedo assumed same at all wavelengths
+      REAL :: albedoS(ip1jmp1) ! surface albedo assumed same at all wavelengths
 
 !     added by FF for cloud fraction setup