- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90
r3680 r4147 87 87 TYPE(FLD_N), DIMENSION(1) :: slf_i ! array of namelist informations on the TC position 88 88 TYPE(FLD_N) :: sn_tc ! informations about the fields to be read 89 ! NAMELIST/namsbc_tc/ cn_dir , sn_tc90 89 !!-------------------------------------------------------------------- 91 90 … … 103 102 sn_tc = FLD_N( 'tc_track', 6 , 'tc' , .true. , .false. , 'yearly' , '' , '' ) 104 103 ! 105 ! REWIND( numnam ) ! ... read in namlist namsbc_core 106 ! READ ( numnam, namsbc_tc ) 107 ! 104 ! Namelist is read in namsbc_core 108 105 ! set sf structure 109 106 ALLOCATE( sf(1), STAT=ierror )
Note: See TracChangeset
for help on using the changeset viewer.