Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90 (modified) (5 diffs, 1 prop)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

@@ -6 +6 @@
    !! History :  1.0  !  2001-05  (J. Chanut, A. Sellar)  Original code
    !!            3.0  !  2008-04  (NEMO team)  add in the reference version     
+   !!            3.3  !  2010-09  (D. Storkey) add ice boundary conditions
    !!----------------------------------------------------------------------
 #if defined key_bdy 
@@ -20 +21 @@
    !! Namelist variables
    !!----------------------------------------------------------------------
-   CHARACTER(len=80) ::   filbdy_mask        !: Name of unstruct. bdy mask file
-   CHARACTER(len=80) ::   filbdy_data_T      !: Name of unstruct. bdy data file at T points
-   CHARACTER(len=80) ::   filbdy_data_U      !: Name of unstruct. bdy data file at U points
-   CHARACTER(len=80) ::   filbdy_data_V      !: Name of unstruct. bdy data file at V points
-   CHARACTER(len=80) ::   filbdy_data_bt_T   !: Name of unstruct. bdy data file at T points for barotropic variables
-   CHARACTER(len=80) ::   filbdy_data_bt_U   !: Name of unstruct. bdy data file at U points for barotropic variables
-   CHARACTER(len=80) ::   filbdy_data_bt_V   !: Name of unstruct. bdy data file at V points for barotropic variables
+   CHARACTER(len=80) ::   cn_mask        !: Name of unstruct. bdy mask file
+   CHARACTER(len=80) ::   cn_dta_frs_T   !: Name of unstruct. bdy data file at T points for FRS conditions
+   CHARACTER(len=80) ::   cn_dta_frs_U   !: Name of unstruct. bdy data file at U points for FRS conditions
+   CHARACTER(len=80) ::   cn_dta_frs_V   !: Name of unstruct. bdy data file at V points for FRS conditions
+   CHARACTER(len=80) ::   cn_dta_fla_T   !: Name of unstruct. bdy data file at T points for Flather scheme
+   CHARACTER(len=80) ::   cn_dta_fla_U   !: Name of unstruct. bdy data file at U points for Flather scheme
+   CHARACTER(len=80) ::   cn_dta_fla_V   !: Name of unstruct. bdy data file at V points for Flather scheme
    !
-   LOGICAL ::   ln_bdy_tides = .false.  !: =T apply tidal harmonic forcing along open boundaries
-   LOGICAL ::   ln_bdy_vol  = .false.   !: =T volume correction             
-   LOGICAL ::   ln_bdy_mask = .false.   !: =T read bdymask from file
-   LOGICAL ::   ln_bdy_clim = .false.   !: if true, we assume that bdy data files contain 
+   LOGICAL ::   ln_tides = .false.    !: =T apply tidal harmonic forcing along open boundaries
+   LOGICAL ::   ln_vol  = .false.     !: =T volume correction             
+   LOGICAL ::   ln_mask = .false.     !: =T read bdymask from file
+   LOGICAL ::   ln_clim = .false.     !: if true, we assume that bdy data files contain 
    !                                    !  1 time dump  (-->bdy forcing will be constant) 
    !                                    !  or 12 months (-->bdy forcing will be cyclic) 
-   LOGICAL ::   ln_bdy_dyn_fla  = .false. !: =T Flather boundary conditions on barotropic velocities
-   LOGICAL ::   ln_bdy_dyn_frs  = .false. !: =T FRS boundary conditions on velocities
-   LOGICAL ::   ln_bdy_tra_frs  = .false. !: =T FRS boundary conditions on tracers (T and S)
-   LOGICAL ::   ln_bdy_ice_frs  = .false. !: =T FRS boundary conditions on seaice (leads fraction, ice depth, snow depth)
+   LOGICAL ::   ln_dyn_fla  = .false. !: =T Flather boundary conditions on barotropic velocities
+   LOGICAL ::   ln_dyn_frs  = .false. !: =T FRS boundary conditions on velocities
+   LOGICAL ::   ln_tra_frs  = .false. !: =T FRS boundary conditions on tracers (T and S)
+   LOGICAL ::   ln_ice_frs  = .false. !: =T FRS boundary conditions on seaice (leads fraction, ice depth, snow depth)
    !
-   INTEGER ::   nb_rimwidth = 7         !: boundary rim width
-   INTEGER ::   nbdy_dta    = 1          !: = 0 use the initial state as bdy dta or = 1 read it in a NetCDF file
-   INTEGER ::   volbdy      = 1         !: = 0 the total volume will have the variability of the surface Flux E-P 
+   INTEGER ::   nn_rimwidth = 7         !: boundary rim width
+   INTEGER ::   nn_dtactl   = 1          !: = 0 use the initial state as bdy dta or = 1 read it in a NetCDF file
+   INTEGER ::   nn_volctl   = 1         !: = 0 the total volume will have the variability of the surface Flux E-P 
    !                                    !  = 1 the volume will be constant during all the integration.
 
@@ -54 +55 @@
    !! Unstructured open boundary data variables
    !!----------------------------------------------------------------------
-   INTEGER, DIMENSION(jpbgrd) ::   nblen                  !: Size of bdy data on a proc for each grid type
-   INTEGER, DIMENSION(jpbgrd) ::   nblenrim               !: Size of bdy data on a proc for first rim ind
-   INTEGER, DIMENSION(jpbgrd) ::   nblendta               !: Size of bdy data in file
+   INTEGER, DIMENSION(jpbgrd) ::   nblen    = 0           !: Size of bdy data on a proc for each grid type
+   INTEGER, DIMENSION(jpbgrd) ::   nblenrim = 0           !: Size of bdy data on a proc for first rim ind
+   INTEGER, DIMENSION(jpbgrd) ::   nblendta = 0           !: Size of bdy data in file
 
    INTEGER, DIMENSION(jpbdim,jpbgrd) ::   nbi, nbj        !: i and j indices of bdy dta
@@ -73 +74 @@
    REAL(wp), DIMENSION(jpbdim) ::   sshtide               !: Tidal boundary array : SSH
    REAL(wp), DIMENSION(jpbdim) ::   utide, vtide          !: Tidal boundary array : U and V
+#if defined key_lim2
+   REAL(wp), DIMENSION(jpbdim) ::  &
+      frld_bdy, hicif_bdy,  & !: Now clim of ice leads fraction, ice  
+      hsnif_bdy               !: thickness and snow thickness
+#endif
 
 #else
@@ -78 +84 @@
    !!   Dummy module                NO Unstructured Open Boundary Condition
    !!----------------------------------------------------------------------
-   LOGICAL ::   ln_bdy_tides = .false.  !: =T apply tidal harmonic forcing along open boundaries
+   LOGICAL ::   ln_tides = .false.  !: =T apply tidal harmonic forcing along open boundaries
 #endif
 
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008) 
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE bdy_oce