Contents of /MITgcm_contrib/ESMF/mytools/scommand

#
# sed command that makes remaining real variables (i.e. not _RL or _RS) real*8
# this is needed because mdsio_readfile() etc... abuse the types of the array
# passed over their interface. f90 compilers see the call and the interface
# within the same module at the moment and get upset.
#
# command reads "mitgcm_org_ocn_mod.F" and writes "foo.F"
#
# command is source'd from mkmod.sh
#
cat mitgcm_org_ocn_mod.F | sed s'/\(^ *\)[Rr][Ee][Aa][Ll]\( .*\)/\1REAL\*8\2/' > foo.F
1	#
2	# sed command that makes remaining real variables (i.e. not _RL or _RS) real*8
3	# this is needed because mdsio_readfile() etc... abuse the types of the array
4	# passed over their interface. f90 compilers see the call and the interface
5	# within the same module at the moment and get upset.
6	#
7	# command reads "mitgcm_org_ocn_mod.F" and writes "foo.F"
8	#
9	# command is source'd from mkmod.sh
10	#
11	cat mitgcm_org_ocn_mod.F \| sed s'/\(^ \)[Rr][Ee][Aa][Ll]\( .\)/\1REAL\*8\2/' > foo.F