Index: /BOL/Replay/replay_equip.sh
===================================================================
--- /BOL/Replay/replay_equip.sh	(revision 5037)
+++ /BOL/Replay/replay_equip.sh	(revision 5038)
@@ -314,8 +314,10 @@
     if (( $# >> 0 )) ; then
        vars=$*
+       echo "if ( abs(gr_index_)>0 ) then"
        for var in $vars ; do
           local vardim=$( var_dims $var )
           echo "call iotd_ecrit_seq('"$pre$var"',$klev_,'"$pre$var in $param"',' ',"$var$vardim")"
        done
+       echo endif
     fi
 }
@@ -470,5 +472,5 @@
 endif
 irec=irec+1
-write(81,rec=irec) $( echo $varin | sed -e "s/,$klon/,1/" )
+write(81,rec=irec) $varin
 endif
 first_replay=.false.
@@ -497,4 +499,5 @@
 if [[ "$lonlat" != "" ]] ; then
     for file in $paraminc1 $paraminc2 ; do sed -i -e "s/1:$klon/gr_index_/g" -e '/rec_l/s/\*('$klon')//g'  $file ; done
+    sed -i -e "/(81/s/,$klon/,1/" $paraminc1
 fi