Changeset 2905 for trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90

Timestamp:

Feb 28, 2023, 2:34:56 PM (21 months ago)

Author:

romain.vande

Message:

Mars PEM:
Correction in pemetat0, if misplaced for time reading.

File:

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

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

@@ -98 +98 @@
    call open_startphy(filename)
 
-    if(soil_pem) then
-
    call get_var("Time",year_PEM_read,found)
    year_PEM=INT(year_PEM_read)
@@ -107 +105 @@
       write(*,*)'year_PEM of startpem=', year_PEM
    endif
+
+    if(soil_pem) then
  
 !1. Thermal Inertia