Changeset 4360

Timestamp:

Dec 1, 2022, 3:32:26 AM (2 years ago)

Author:

fhourdin

Message:

replay tool details

File:

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

BOL/Replay/replay_equip.sh

@@ -151 +151 @@
 esac
 echo '! <<< dump_param_open'
-for var in $* ; do echo 'rec_length=rec_length+kind('$var')*size(['$var'])' ; done
+for var in $* ; do echo 'rec_length_replay=rec_length_replay+kind('$var')*size(['$var'])' ; done
 cat <<eod
-open(${fort},file='dump_param_${inout}.bin',form='unformatted',access='direct',recl=rec_length)  ! $replay_comment
+open(${fort},file='dump_param_${inout}.bin',form='unformatted',access='direct',recl=rec_length_replay)  ! $replay_comment
 eod
 echo '! dump_param_open >>> '
@@ -312 +312 @@
 USE IOIPSL, ONLY : getin
 IMPLICIT NONE
-integer :: ifin,irec,it,rec_length=0,replay_irec0=1,replay_nt=1000
+integer :: ifin,irec,it,rec_length_replay=0,replay_irec0=1,replay_nt=1000
 eod
 grep 'intent.*::' input | sed -e 's/ //g' -e 's/,intent(.*[nt])//'>> call_param_replay.F90
@@ -359 +359 @@
 \rm $paraminc1
 cat> $paraminc1 <<eod
-logical, save :: first=.true.
-integer, save :: rec_length=0,irec=0
-if (first) then
+logical, save :: first_replay=.true.
+integer, save :: rec_length_replay=0,irec=0
+if (first_replay) then
 eod
 dump_param_open out $varin0 >> $paraminc1
 cat>> $paraminc1 <<eod
-first=.false.
+first_replay=.false.
 endif
 irec=irec+1