Changeset 4161 for trunk/LMDZ.MARS/util/localtime.F90

Timestamp:

Apr 1, 2026, 3:17:47 PM (6 days ago)

Author:

jmauxion

Message:

Mars PCM:

• Fix improvedclouds_mod by adding a missing "else" condition on zdq.
• Add the possibility to output watercaptag in physiq_mod.
• Fix write_output to handle logical arrays with an unstructured grid.
• Update some of the utils (localtime/zrecast) to handle phisfi.

JM

File:

• trunk/LMDZ.MARS/util/localtime.F90 (modified) (1 diff)

trunk/LMDZ.MARS/util/localtime.F90

@@ -1046 +1046 @@
 ierr=NF_INQ_VARID(infid,"phisinit",tmpvarid)
 if (ierr.ne.NF_NOERR) then
-  write(*,*) "Failed to get phisinit ID. OK"
-  phisinit = 0.
-  phis = .false.
+  write(*,*) "Failed to get phisinit ID..."
+  write(*,*) "Try name phisfi (xios name)..."
+  ierr=NF_INQ_VARID(infid,"phisfi",tmpvarid)
+  if (ierr.ne.NF_NOERR) then
+    write(*,*) "Failed again. Ok, I skip phisinit."
+    phisinit = 0.
+    phis = .false.
+  else
+    ierr=NF_GET_VAR_REAL(infid,tmpvarid,phisinit)
+    if (ierr.ne.NF_NOERR) then
+      write(*,*) "init2 ERRO: Failed reading phisinit"
+      stop
+    endif
+    phis = .true.
+  endif
 else
   ierr=NF_GET_VAR_REAL(infid,tmpvarid,phisinit)