Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90
r5215 r7646 27 27 PRIVATE 28 28 29 PUBLIC wnd_cyc ! routine called in sbcblk _core.F90 module29 PUBLIC wnd_cyc ! routine called in sbcblk.F90 module 30 30 31 31 INTEGER , PARAMETER :: jp_is1 = 1 ! index of presence 1 or absence 0 of a TC record … … 102 102 sn_tc = FLD_N( 'tc_track', 6 , 'tc' , .true. , .false. , 'yearly' , '' , '' , '' ) 103 103 ! 104 ! Namelist is read in namsbc_ core104 ! Namelist is read in namsbc_blk 105 105 ! set sf structure 106 106 ALLOCATE( sf(1), STAT=ierror )
Note: See TracChangeset
for help on using the changeset viewer.