Changeset 1895 for trunk/LMDZ.TITAN/libf/dynphy_lonlat

Timestamp:

Jan 16, 2018, 10:53:17 AM (7 years ago)

Author:

jvatant

Message:

Follow-up of r1894 - fix a missing init in phyetat0
--JVO

File:

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

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

@@ -204 +204 @@
 ! Get value of the "upper_chemistry_layers" dimension from physics start file
 
+      ! NB : nlaykim_up is recalculated in phyetat0 ... this is redundant for newstart
+      ! If you want to do it properly put ykim_upS in a specific separate header
+      ! Anyway it should be safe. -- JVO 18
+
       ierr = NF_INQ_DIMID(nid1,"upper_chemistry_layers",varid)
       IF (ierr .NE. NF_NOERR) THEN