Changeset 1850 for trunk/LMDZ.TITAN/libf

Timestamp:

Dec 12, 2017, 1:32:18 PM (7 years ago)

Author:

jvatant

Message:

Follow-up of r1849 : understood the black magic !
--JVO

File:

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

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

@@ -368 +368 @@
 c-----------------------------------------------------------------------
 
-      ! JVO 2017 :  For this part it seems to need a shift of 1 in the 
-      ! tab_cntrl indexes compared to dynetat0 ... I introduced it to have
-      ! correct outputs of newstart but I don't really understand why ...
+      ! JVO 2017 : Added a +1 shift in tab_cntrl indexes to be coherent
+      ! with Earth-like Titan start files ( cf dynetat0 from common )
 
       kappa = tab_cntrl(10)