Changeset 652 for LMDZ4/trunk/makegcm

Timestamp:

Jun 6, 2005, 3:16:33 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Correction du bug sur l'ozone (unite, calcul). On peut retrouver le
bug, qui est présent dans les simulations IPCC 2005, en positionnant
le flag bug_ozone à true dans physiq.def.
MPL/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
 #
 
@@ -738 +738 @@
 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
+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/phylmd/YOMCST.h >! $libf/phylmd/YOMCST.tmp
+if ( ! -f $libf/phylmd/YOMCST.inc  || `diff $libf/phylmd/YOMCST.tmp $libf/phylmd/YOMCST.inc | wc -w` ) then
+      \mv $libf/phylmd/YOMCST.tmp $libf/phylmd/YOMCST.inc
+endif
+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/phylmd/clesphys.h >! $libf/phylmd/clesphys.tmp
+if ( ! -f $libf/phylmd/clesphys.inc  || `diff $libf/phylmd/clesphys.tmp $libf/phylmd/clesphys.inc | wc -w` ) then
+      \mv $libf/phylmd/clesphys.tmp $libf/phylmd/clesphys.inc
 endif
 #sed -e 's/^c/\!/' $libf/dyn3dpar/paramet.h >! $libf/dyn3dpar/paramet90.h