Changeset 2986 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Jul 2, 2023, 11:02:01 AM (18 months ago)

Author:

romain.vande

Message:

MARS PEM:
Small fix to adapt pem to the r2981 write_profile modification by evos.
RV

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• orbit_param_criterion_mod.F90 (modified) (1 diff)
• pem.F90 (modified) (1 diff)

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

@@ -170 +170 @@
 !--------------------------------
 
-        do ilask=last_ilask,1,-1
-
+        do ilask=last_ilask,2,-1
           xa=yearlask(ilask)
           xb=yearlask(ilask-1)

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

@@ -1292 +1292 @@
 #else
      DO nnq = 1, nqtot
-        call writeprofile(nlayer,q(1,:,nnq),noms(nnq),nnq)
+        call writeprofile(nlayer,q(1,:,nnq),noms(nnq),nnq,qsurf)
      ENDDO
 #endif