Changeset 2943 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/write_archive.F

Timestamp:

Apr 17, 2023, 12:07:33 PM (19 months ago)

Author:

llange

Message:

Mars PCM
Following r-2942: Fix a bug in newstart when rewriting inertiesoil. Inertiesoil is now also managed in startarchive.
When using startarchive or newstart, inertiesoil is set to inertiedat.
LL

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/write_archive.F (modified) (5 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/write_archive.F

@@ -81 +81 @@
 
 ! Creation de la variable si elle n'existait pas
-
+                   
               write (*,*) "====================="
               write (*,*) "creation de ",nom
@@ -224 +224 @@
      &        nom.eq."ps" .or. nom.eq."q2surf" .or. nom.eq."ZMEA" .or.
      &        nom.eq."ZSTD" .or. nom.eq."ZSIG" .or. nom.eq."ZTHE" .or. 
-     &        nom.eq."ZGAM" .or. nom.eq."albedodat" .or. 
+     &        nom.eq."ZGAM" .or. nom.eq."albedodat" .or.
      &        nom.eq."z0" .or. nom.eq."summit" .or. nom.eq."hmons" 
      &        .or. nom.eq."base") then
@@ -238 +238 @@
               write (*,*) "====================="
               write (*,*) "creation de ",nom
-
               call def_var(nid,nom,titre,unite,3,id,varid,ierr)
 
@@ -276 +275 @@
               write (*,*) "====================="
               write (*,*) "creation de ",nom
-
               call def_var(nid,nom,titre,unite,4,id,varid,ierr)
 
@@ -323 +321 @@
               write (*,*) "====================="
               write (*,*) "creation de ",nom
-
               call def_var(nid,nom,titre,unite,1,id,varid,ierr)