Changeset 4068 for trunk/LMDZ.COMMON/libf/evolution/clim_state_init.F90

Timestamp:

Feb 12, 2026, 12:32:15 PM (2 weeks ago)

Author:

jbclement

Message:

PEM:
Following r4065, some safeguards forgotten in "io_netcdf.F90" + 'tsurf' is not needed anymore in the "start1D.txt" + few forgotten small updates.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/clim_state_init.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/clim_state_init.F90

@@ -137 +137 @@
 character(30)                   :: header
 real(dp), dimension(1,1)        :: tmp
-real(dp), dimension(nslope)     :: tmp_1d
 real(dp), dimension(1,1,nlayer) :: q_tmp, teta_tmp, wind_tmp
 real(dp), dimension(nlayer + 1) :: ap_tmp, bp_tmp
@@ -157 +156 @@
 
 do i = 1,nq
-    read(funit,*,iostat = ierr) header, (tmp_1d(j),j = 1,nslope), (q_tmp(1,1,k),k = 1,nlayer)
+    read(funit,*,iostat = ierr) header, (q_tmp(1,1,k),k = 1,nlayer)
     if (ierr /= 0) call stop_clean(__FILE__,__LINE__,'not enough atmospheric layers defined in the file "'//start1D_name//'" for the tracer "'//trim(header)//'"!',1)
     call set_q_PCM(q_tmp,i)
@@ -165 +164 @@
 read(funit,*,iostat = ierr) header, (wind_tmp(1,1,k),k = 1,nlayer)
 call set_v_PCM(wind_tmp)
-read(funit,*,iostat = ierr) header, (tmp_1d(j),j = 1,nslope), (teta_tmp(1,1,k),k = 1,nlayer)
+read(funit,*,iostat = ierr) header, (teta_tmp(1,1,k),k = 1,nlayer)
 call set_teta_PCM(teta_tmp)