Changeset 4353

Timestamp:

Nov 24, 2022, 10:32:03 PM (19 months ago)

Author:

fhourdin

Message:

Correction de l'otpion inout

File:

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

BOL/Replay/replay_equip.sh

@@ -276 +276 @@
 extract_subroutine $param $paramfile # -> input file
 varin0=`grep inten.*.in input | sed -e 's/\!.*$//' | cut -d: -f3 | sed -e 's/,/ /g'`
-varinout0=`grep inten.*.inout input | sed -e '/\!.*$/d' | cut -d: -f3 | sed -e 's/,/ /g'`
+varinout0=`grep inten.*.inout input | sed -e 's/\!.*$//' | cut -d: -f3 | sed -e 's/,/ /g'`
 varin=`echo $varin0 | sed -e 's/ /,/g' -e "s/,,,/,/g" -e "s/,,/,/g"`
 output=full # Attention, l'option full ne marche pas a cause de tableaux locaux undef
@@ -316 +316 @@
 grep 'intent.*::' input | sed -e 's/ //g' -e 's/,intent(.*[nt])//'>> call_param_replay.F90
 # duplicating declaration for inout variables
+
 for var in $varinout0 ; do
     sed -e 's/::/ :: /' -e 's/,/ , /g' -e 's/$/ /' input | grep 'intent.*inout.*::.* '$var' ' | sed -e 's/ //g' -e 's/,intent(.*[nt])//' | sed -e 's/::.*$/, allocatable, save :: '$var'_Replay0/' | sed -e 's/'$klon'/:/' -e 's/'$klev'/:/' >> call_param_replay.F90