NCAR CRAY ؤΰܿΥ : gt3-dl5   97/09/10-  horinout
(ѥ顼CF90)

  

CRAYREAL٤Ǥ롣եIO̲񤷤F[EHL]PACKCRAY
ǤϤʤȯݤǤ롣änetCDF˾괹ʤ

Ȥꤢ agcm ưƤߤȤŪΤᡢnetCDF IO̤
Τޤޥѥ롣äơֲפΥ󥹥ȡǤ뤫顢
äȤϾŪн褹롣ɬפʤǽϤɤɤΤƤƹ
ʤ

  

 եIO

gtoolǥեȤΡߴؤäʤ٤ IO Ȥgfopen.F
ѥ"append"ʤȸ줿ΤǡappendǽϺ

 gglay3.F

LOGICAL VAR /.TRUE./ ʤɤȤäʤƤ뤳ȤȽ
ѥǤʤΤ gglay1 򥳥ԡƻȤ

 gtpget.F

Τf90ΥץץåϼեƬʬ򤦤ޤäƤ
ʤäΤǡ cpp 򤫤ƥѥ뤷

 OPTARG(src/sample/optarg/optrag.F)

åեѤ͡ꥹ(fortran77Ǥϸݡ
Ƥʤ)ԤʤäƤ롣Sun FORTRAN77 ǽ񤫤Ƥ뤬CRAY
CF90 ǤѤ롣fortran90 ˤ namelist ˺Ѥ
ꡢʸʸˡ㴳ۤʤΤǡ˹碌ƽľ

SunȤΰ㤤ϡnamelistʸ &LIST_NAME  & ˶
ȤȡϽλ &END Ǥʤ / 뤳ȤǤ롣 / 
ϡڡʤȤʤʤʤȥѥϽʤ͡ˡ

ץꥱ¦Ѥ롢͡ꥹȤ read/write ʸν񼰤⡢
(ȤSun) READ(UNIT,LIST_NAME) ˲äơ 
READ(UNIT,NML=LIST_NAME)  NML ҤƳ줿SunǤ⤢äΤ
ʡˡ񤤤狼䤹Τˤ sample 򤹤٤ƽ
ľͤФʤʤNMLʤͤǧƤΤ鸫롣
