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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3875 r3901  
    119119      cgrid= (/'t','u','v'/) 
    120120       
    121       ! ----------------------------------------- 
    122       ! Initialise and read namelist parameters 
    123       ! ----------------------------------------- 
    124  
    125       nb_bdy            = 0 
    126       ln_coords_file(:) = .false. 
    127       cn_coords_file(:) = '' 
    128       ln_mask_file      = .false. 
    129       cn_mask_file(:)   = '' 
    130       nn_dyn2d(:)       = 0 
    131       nn_dyn2d_dta(:)   = -1  ! uninitialised flag 
    132       nn_dyn3d(:)       = 0 
    133       nn_dyn3d_dta(:)   = -1  ! uninitialised flag 
    134       nn_tra(:)         = 0 
    135       nn_tra_dta(:)     = -1  ! uninitialised flag 
    136       ln_tra_dmp(:)     = .false. 
    137       ln_dyn3d_dmp(:)   = .false. 
    138       rn_time_dmp(:)    = 1. 
    139 #if defined key_lim2 
    140       nn_ice_lim2(:)    = 0 
    141       nn_ice_lim2_dta(:)= -1  ! uninitialised flag 
    142 #endif 
    143       ln_vol            = .false. 
    144       nn_volctl         = -1  ! uninitialised flag 
    145       nn_rimwidth(:)    = -1  ! uninitialised flag 
     121      ! ------------------------ 
     122      ! Read namelist parameters 
     123      ! ------------------------ 
    146124 
    147125      REWIND( numnam_ref )              ! Namelist nambdy in reference namelist :Unstructured open boundaries   
Note: See TracChangeset for help on using the changeset viewer.