Changeset 647 for LMDZ4/trunk/makegcm

Timestamp:

Jun 1, 2005, 3:43:43 PM (19 years ago)

Author:

lmdzadmin

Message:

Remplacement des commandes sed créant différents fichiers include F90
par des commandes awk, les sed passant mal à l'IDRIS et au CEA
LF

File:

• LMDZ4/trunk/makegcm (modified) (2 diffs)

LMDZ4/trunk/makegcm

@@ -30 +30 @@
 ###### VERSION LMDZ.4
 # set LMDGCM=$HOME/LMDZ.4
-#set LMDGCM="`pwd`"
-#setenv LIBOGCM $LMDGCM/libo
+set LMDGCM="`pwd`"
+setenv LIBOGCM $LMDGCM/libo
 #
 
@@ -729 +729 @@
       \mv $libf/grid/dimensions90.tmp $libf/grid/dimensions90.h
 endif
-sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     s/ \&\n     \& /g ; p }' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
+awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     s/) {if (NR > 1) print p0," &"; sub ("     s","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
+# sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     s/ \&\n     \& /g ; p }' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
 if ( ! -f $libf/dyn3d/paramet90.h || `diff $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h | wc -w` ) then
       \mv $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h
 endif
-sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     \./ \&\n     \& /g ; p }' $libf/dyn3d/control.h >! $libf/dyn3d/control.tmp
+awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     \./) {if (NR > 1) print p0," &"; sub ("     \.","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d/control.h >! $libf/dyn3d/control.tmp
+#sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     \./ \&\n     \& /g ; p }' $libf/dyn3d/control.h >! $libf/dyn3d/control.tmp
 if ( ! -f $libf/dyn3d/control.inc  || `diff $libf/dyn3d/control.tmp $libf/dyn3d/control.inc | wc -w` ) then
       \mv $libf/dyn3d/control.tmp $libf/dyn3d/control.inc
 endif
-sed -e 's/^c/\!/' $libf/dyn3dpar/paramet.h >! $libf/dyn3dpar/paramet90.h
+#sed -e 's/^c/\!/' $libf/dyn3dpar/paramet.h >! $libf/dyn3dpar/paramet90.h
 ##########################################
 cd $model