Changeset 634 for trunk/LMDZ.MARS/create_make_gcm

Timestamp:

Apr 26, 2012, 10:03:22 AM (13 years ago)

Author:

emillour

Message:

All GCMs:

• Improved 'create_make_gcm' scripts: better control of wether files are identified as main programs or routines.

EM

File:

• trunk/LMDZ.MARS/create_make_gcm (modified) (3 diffs)

trunk/LMDZ.MARS/create_make_gcm

@@ -150 +150 @@
       do
          fili=`basename $i .F`
-         test=` (  head $i | grep '      PROGRAM' ) `
+         # Check if file is a routine or main program
+         # i.e: look for the "program" keword preceeded by leading spaces
+         test=` (  head $i | grep -i '^ *program' ) `
          if [ "$test" = "" ] ; then 
+            # if it is not a main program, add it to the list
             listlib=$listlib" "$fili
          fi
@@ -158 +161 @@
       do
          fili=`basename $i .F90`
-         test=` (  head $i | grep '      PROGRAM' ) `
+         # Check if file is a routine or main program
+         # i.e. look for "program" keyword (with possibly some leading spaces)
+         test=` (  head $i | grep -i '^ \{0,\}program' ) `
          if [ "$test" = "" ] ; then
+            # if it is not a main program, add it to the list
             listlib=$listlib" "$fili
          fi 
@@ -228 +234 @@
          else
          ## Fortran 90
-           echo '       cd $(LOCAL_DIR); \'
            if [ -f $fili.F90 ] ; then
            ## Free Form Fortran 90