Changeset 3026 for trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90

Timestamp:

Aug 9, 2023, 11:56:36 AM (16 months ago)

Author:

jbclement

Message:

Mars PCM/PEM 1D:
Small fixes to be able to run the Mars PCM 1D without "water" + Improvements/addition of scripts in deftank/pem to run the PEM 1D model according to Laskar orbital parameters.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90 (modified) (1 diff)

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

@@ -78 +78 @@
 
           open(73,file='ob_ex_lsp.asc')
-          do ilask=1,nlask
-            read(73,*) yearlask(ilask),oblask(ilask),      &
-             exlask(ilask),lsplask(ilask)
-            yearlask(ilask)=yearlask(ilask)*1000
-
-            if(yearlask(ilask).GT.Year) then
-                last_ilask=ilask+1
-            endif
-          end do
+          do ilask = 1,nlask
+            read(73,*) yearlask(ilask), oblask(ilask), exlask(ilask), lsplask(ilask)
+            yearlask(ilask) = yearlask(ilask)*1000.
+            if (yearlask(ilask) > Year) last_ilask = ilask + 1
+          enddo
           close(73)