Changeset 2136 for trunk/LMDZ.TITAN/libf


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/lect_start_archive.F

    r1903 r2136  
    863863          PRINT*, "lect_start_archive: Le champ <H_up> est present..."
    864864          PRINT*, "... mais callchim=.FALSE. dans callphys.def !"
    865           PRINT*, "Veuillez activer callchim pour gerer ce champ !"
    866           CALL abort
     865          PRINT*, "Si vous voulez gerer la chimie activez callchim !"
     866          ! 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 !
    867867        ELSE
    868868#ifdef NC_DOUBLE
  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

    r1903 r2136  
    11071107            CALL vert_regrid_kim(nqtot,q)
    11081108
     1109          ELSE
     1110            ykim_up(:,:,:) = ykim_up_oldv(:,:,:) ! No vertical recast
    11091111          ENDIF
    11101112         
Note: See TracChangeset for help on using the changeset viewer.