Changeset 2814 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

Timestamp:

2011-07-27T14:41:28+02:00 (13 years ago)

Author:

davestorkey

Message:

1. Implement tidal harmonics forcing (UKMO version) in new structure.
2. Other bug fixes and updates.

File:

• branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90 (modified) (3 diffs)

branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

@@ -56 +56 @@
    !                                                        !: =F read obc coordinates from namelist
    LOGICAL                    ::   ln_mask_file             !: =T read obcmask from file
-   LOGICAL, DIMENSION(jp_obc) ::   ln_tides                 !: =T apply tidal harmonic forcing along open boundaries
    LOGICAL                    ::   ln_vol                   !: =T volume correction             
    LOGICAL, DIMENSION(jp_obc) ::   ln_clim                  !: =T obc data files contain climatological data (time-cyclic)
@@ -64 +63 @@
    INTEGER, DIMENSION(jp_obc) ::   nn_dtactl           !: = 0 use the initial state as obc dta ; 
                                                             !: = 1 read it in a NetCDF file
+   INTEGER, DIMENSION(jp_obc) ::   nn_tides                 !: = 0 no tidal harmonic forcing
+                                                            !: = 1 apply ONLY tidal harmonic forcing for barotropic solution
+                                                            !: = 2 ADD tidal harmonic forcing to other barotropic boundary data
    INTEGER                    ::   nn_volctl                !: = 0 the total volume will have the variability of the surface Flux E-P 
    !                                                        !  = 1 the volume will be constant during all the integration.
@@ -98 +100 @@
    !!----------------------------------------------------------------------
 
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)       ::   dta_global        !: workspace for reading in global data arrays
-   TYPE(OBC_INDEX), DIMENSION(jp_obc), TARGET    ::   idx_obc           !: obc indices (local process)
-   TYPE(OBC_DATA) , DIMENSION(jp_obc)            ::   dta_obc           !: obc external data (local process)
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET ::   dta_global        !: workspace for reading in global data arrays
+   TYPE(OBC_INDEX), DIMENSION(jp_obc), TARGET      ::   idx_obc           !: obc indices (local process)
+   TYPE(OBC_DATA) , DIMENSION(jp_obc)              ::   dta_obc           !: obc external data (local process)
 
    !!----------------------------------------------------------------------