Changeset 3598 for trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90

Timestamp:

Jan 23, 2025, 12:10:24 PM (11 days ago)

Author:

jbclement

Message:

PEM:
Correction of typos and minor bugs.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90 (modified) (2 diffs)

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

@@ -80 +80 @@
 call error_msg(NF90_OPEN(filename1,NF90_NOWRITE,fID),"open",filename1)
 
-! Compute averages over the year for each point
-write(*,*) "Computing the average of tsurf..."
+! Download the data from the file
 if (nslope == 1) then ! There is no slope
     call get_var3("co2ice",co2_ice_slope_dyn(:,:,1,:))
@@ -289 +288 @@
 A = (1./m_co2 - 1./m_noco2)
 B = 1./m_noco2
-do i = 1,iim + 1
+do i = 1,iim_input + 1
     do j = 1,jjm_input + 1
         do t = 1, timelen