Changeset 1886 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/write_archive.F

Timestamp:

Jan 7, 2018, 5:35:22 PM (7 years ago)

Author:

jvatant

Message:

Some adjustments to r1871 on start_archive managment of chemistry dimension.
--JVO

File:

• trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/write_archive.F (modified) (1 diff)

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

@@ -175 +175 @@
           ierr=NF_INQ_DIMID(nid,"upper_chemistry_layers",id(3))
           if (ierr.ne.NF_NOERR) then
-           write(*,*)"write_archive: dimension 
-     &                <upper_chemistry_layers> is missing !!!"
+           write(*,*)"write_archive: dimension", 
+     &               " <upper_chemistry_layers> is missing !!!"
            call abort
           endif