Changeset 7280 for branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

Timestamp:

2016-11-21T11:40:00+01:00 (7 years ago)

Author:

flavoni

Message:

merge CNRS2016 with aerobulk branch

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90 (modified) (2 diffs)

branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

@@ -27 +27 @@
    PRIVATE
 
-   PUBLIC   wnd_cyc   ! routine called in sbcblk_core.F90 module
+   PUBLIC   wnd_cyc   ! routine called in sbcblk.F90 module
 
    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'  , ''       , ''         , ''            )
          !
-         !  Namelist is read in namsbc_core
+         !  Namelist is read in namsbc_blk
          ! set sf structure
          ALLOCATE( sf(1), STAT=ierror )