New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

    r3680 r4147  
    8787      TYPE(FLD_N), DIMENSION(1) ::   slf_i     ! array of namelist informations on the TC position 
    8888      TYPE(FLD_N) ::   sn_tc                   ! informations about the fields to be read 
    89       !      NAMELIST/namsbc_tc/ cn_dir , sn_tc 
    9089      !!-------------------------------------------------------------------- 
    9190 
     
    103102         sn_tc = FLD_N( 'tc_track',     6     ,  'tc'     ,  .true.    , .false. ,   'yearly'  , ''       , ''         ) 
    104103         ! 
    105          !         REWIND( numnam )                    ! ... read in namlist namsbc_core 
    106          !         READ  ( numnam, namsbc_tc ) 
    107          ! 
     104         !  Namelist is read in namsbc_core 
    108105         ! set sf structure 
    109106         ALLOCATE( sf(1), STAT=ierror ) 
Note: See TracChangeset for help on using the changeset viewer.