Changeset 6723 for branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

Timestamp:

2016-06-19T11:36:47+02:00 (8 years ago)

Author:

gm

Message:

#1751 - branch SIMPLIF_6_aerobulk: add aerobulk package including NCAR, COARE and ECMWF bulk

File:

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

branches/2016/dev_r6711_SIMPLIF_6_aerobulk/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 )