Changeset 2136

Timestamp:

May 6, 2019, 7:54:05 PM (6 years ago)

Author:

jvatant

Message:

Fix the missing (obvious) case of no change in vertical dimension
for upper chem in newstart case of reading start_archive.
--JVO

Location:

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan

Files:

• lect_start_archive.F (modified) (1 diff)
• newstart.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/lect_start_archive.F

@@ -863 +863 @@
           PRINT*, "lect_start_archive: Le champ <H_up> est present..."
           PRINT*, "... mais callchim=.FALSE. dans callphys.def !"
-          PRINT*, "Veuillez activer callchim pour gerer ce champ !"
-          CALL abort
+          PRINT*, "Si vous voulez gerer la chimie activez callchim !"
+          ! CALL abort ! This is too violent to abort here we can start from an archive with chemistry and don't want to use it - JVO !
         ELSE
 #ifdef NC_DOUBLE

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -1107 +1107 @@
             CALL vert_regrid_kim(nqtot,q)
 
+          ELSE
+            ykim_up(:,:,:) = ykim_up_oldv(:,:,:) ! No vertical recast
           ENDIF