Changeset 1672 for trunk/LMDZ.TITAN/libf/chimtitan

Timestamp:

Mar 8, 2017, 10:37:31 AM (8 years ago)

Author:

jvatant

Message:

Re-plug chemistry of old Titan
+ minor correction on reading Titan's startfiles and haze routine
JVO

File:

• trunk/LMDZ.TITAN/libf/chimtitan/disso.c (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/chimtitan/disso.c

@@ -179 +179 @@
    double f,**flux;
    double flact;
-   char   name[60],dir[24];
+   char   name[60],dir[27];
    FILE   *fp,*out;
 
@@ -186 +186 @@
 /* lecture des flux actiniques:
    - suppose que l'executable est dans $LMDGCM/RUN/xxx/
-   - et les moyennes dans $LMDGCM/INPUT/PHOT(NLAT)/Moy_(lat:1 a NLAT)
+   - et les moyennes dans $LMDGCM/datagcm/PHOT(NLAT)/Moy_(lat:1 a NLAT)
 */
-   strcpy( dir, "../../INPUT/PHOT" );
+   strcpy( dir, "../../datagcm/PHOT" );
    if( (*NLAT) < 10 )
    {