Changeset 3950

Timestamp:

Nov 4, 2025, 4:13:19 PM (4 weeks ago)

Author:

tbertrand

Message:

PLUTO PCM:
Small fix for n2frac in newstart.F
TB

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F (modified) (6 diffs)

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

@@ -113 +113 @@
       REAL,ALLOCATABLE :: field_inputs(:,:)
       REAL, ALLOCATABLE :: n2fracfi(:)
-      REAL, ALLOCATABLE :: n2fracdat(:,:)
 
       INTEGER i,j,l,isoil,ig,idum,k
@@ -240 +239 @@
 !allocate n2frac
       allocate(n2fracfi(ngridmx))
-      allocate(n2fracdat(iip1, jjp1))
 
 ! get value of nsoilmx and allocate corresponding arrays
@@ -562 +560 @@
           zgamS(:,:)=0
           ztheS(:,:)=0
+          n2fracfi(:)=1.
 
           write(*,*) "Enter value of albedo of the bare ground:"
@@ -604 +603 @@
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phisold_newgrid,phisfi)
         ! Initialize n2frac
-        n2fracfi(:)=1.
+        n2fracfi(1:ngridmx)=1.
 
         ierr= NF_CLOSE(nid)
@@ -611 +610 @@
         !do nothing, start and startfi have already been read
         ! Initialize n2frac
-        n2fracfi(:)=1.
+        n2fracfi(1:ngridmx)=1.
       else
         CALL exit(1)
@@ -657 +656 @@
         write(*,*) 'diurnal_TI: diurnal thermal inertia for all terr'
         write(*,*) 'initsurf: initial surface temperature (global)'
-        write(*,*) 'modtsurf: initial surface temperature (global)'
+        write(*,*) 'modtsurf: initial surface + soil temperature'
         write(*,*) 'copylat: copy tsurf and tsoil latitude'
         write(*,*) 'copylatlon: copy tsurf and tsoil lat/lon'