Changeset 3546 for trunk

Timestamp:

Dec 10, 2024, 4:24:51 PM (12 days ago)

Author:

afalco

Message:

Pluto: add SSO fields to start_archive, in order for startarchive2icosa scripts to work.
AF

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/start2archive.F (modified) (5 diffs)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/start2archive.F

@@ -39 +39 @@
 c     &                          east_gwstress, west_gwstress
       use exner_hyb_m, only: exner_hyb
+      USE surfdat_h, ONLY: albedodat,zmea,zstd,zsig,zgam,zthe
+
       implicit none
 
@@ -73 +75 @@
       REAL,ALLOCATABLE :: qsurf(:,:)
       REAL emis(ngridmx)
+      REAL albedo(ngridmx)
       INTEGER start,length
       PARAMETER (length = 100)
@@ -89 +92 @@
       REAL,ALLOCATABLE :: qsurfS(:,:)
       REAL emisS(ip1jmp1)
+      REAL albedoS(ip1jmp1)
+
+      REAL zmeaS(ip1jmp1)
+      REAL zsigS(ip1jmp1)
+      REAL zstdS(ip1jmp1)
+      REAL zgamS(ip1jmp1)
+      REAL ztheS(ip1jmp1)
+      REAL albedodatS(ip1jmp1)
 
 c Variables intermediaires : vent naturel, mais pas coord scalaire
@@ -327 +338 @@
       ! Note: thermal inertia "inertiedat" is in comsoil.h
       call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,inertiedat,ithS)
+
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,zmea,zmeaS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,zstd,zstdS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,zsig,zsigS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,zthe,ztheS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,zgam,zgamS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,albedodat,albedodatS)
+
       call gr_fi_dyn(1,ngridmx,iip1,jjp1,emis,emisS)
       call gr_fi_dyn(llm+1,ngridmx,iip1,jjp1,q2,q2S)
@@ -431 +450 @@
 !      call write_archive(nid,ntime,'n2ice','couche de glace n2',
 !     &  'kg/m2',2,n2iceS)
+      call write_archive(nid,ntime,'albedo','surface albedo',' ',
+     &                             2,albedoS)
+      call write_archive(nid,ntime,'albedodat','albedodat',
+     &                             ' ',2,albedodatS)
+
+      call write_archive(nid,ntime,'ZMEA','zmea',' ',2,zmeaS)
+      call write_archive(nid,ntime,'ZSTD','zstd',' ',2,zstdS)
+      call write_archive(nid,ntime,'ZSIG','zsig',' ',2,zsigS)
+      call write_archive(nid,ntime,'ZTHE','zthe',' ',2,ztheS)
+      call write_archive(nid,ntime,'ZGAM','zgam',' ',2,zgamS)
       call write_archive(nid,ntime,'emis','grd emis',' ',2,emisS)
       call write_archive(nid,ntime,'ps','Psurf','Pa',2,ps)