Changeset 5038

Timestamp:

Jul 9, 2024, 6:25:19 PM (2 months ago)

Author:

fhourdin

Message:

OK pour extraction 1D depuis simulation parallele

File:

• BOL/Replay/replay_equip.sh (modified) (3 diffs)

BOL/Replay/replay_equip.sh

@@ -314 +314 @@
     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 +472 @@
 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 +499 @@
 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