Changeset 3341 for trunk/LMDZ.GENERIC/libf

Timestamp:

May 23, 2024, 8:32:15 AM (5 months ago)

Author:

emillour

Message:

Generic PCM:
Follow-up of including surface albedo in restartfi.nc
Ensure initialization of this albedo to bare ground albedo in newstart
EM

File:

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

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

@@ -520 +520 @@
           CALL datareadnc(relief,surfacefile,phis,alb,surfith,
      &          zmeaS,zstdS,zsigS,zgamS,ztheS)
+          ! set surface albedo to bare ground albedo
+          albedodyn(:,:)=alb(:,:)
         else
         ! specific case when not using a "surface.nc" file
@@ -532 +534 @@
           read(*,*) alb(1,1)
           alb(:,:)=alb(1,1)
+          ! set surface albedo to bare ground albedo
+          albedodyn(:,:)=alb(:,:)
           
           write(*,*) "Enter value of thermal inertia of soil:"
@@ -542 +546 @@
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,surfith,surfithfi)
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
+        CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,albedodyn,albedofi)
+        do i=1,L_NSPECTV
+          spectral_albedofi(:,i)=albedofi(:)
+        enddo
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,zmeaS,zmea)
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,zstdS,zstd)