Changeset 2627 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC

Timestamp:

2011-02-27T18:52:49+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; OPA_SRC compilation without mpp

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (7 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -10 +10 @@
    !!   obc_dta           : read u, v, t, s data along each open boundary
    !!------------------------------------------------------------------------------
-   !! * Modules used
    USE oce             ! ocean dynamics and tracers 
    USE dom_oce         ! ocean space and time domain
@@ -19 +18 @@
    USE in_out_manager  ! I/O logical units
    USE lib_mpp         ! distributed memory computing
-   USE dynspg_oce
+   USE dynspg_oce      ! ocean: surface pressure gradient
    USE ioipsl          ! now only for  ymds2ju function 
    USE iom             ! 
@@ -26 +25 @@
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC obc_dta      ! routines called by step.F90
-   PUBLIC obc_dta_bt   ! routines called by dynspg_ts.F90
-   PUBLIC obc_dta_alloc
+   PUBLIC   obc_dta      ! routines called by step.F90
+   PUBLIC   obc_dta_bt   ! routines called by dynspg_ts.F90
+   PUBLIC   obc_dta_alloc
    
 
-   !! * Shared module variables
-   REAL(wp),  DIMENSION(2)              ::  zjcnes_obc   ! 
-   REAL(wp),  DIMENSION(:), ALLOCATABLE :: ztcobc
+   REAL(wp),  DIMENSION(2)              ::   zjcnes_obc   ! 
+   REAL(wp),  DIMENSION(:), ALLOCATABLE ::   ztcobc
    REAL(wp) :: rdt_obc
    REAL(wp) :: zjcnes
@@ -41 +38 @@
    INTEGER ::  itobce, itobcw, itobcs, itobcn, itobc_b  ! number of time steps in OBC files
 
-   INTEGER ::   &
-      ntobc      , &     !:  where we are in the obc file
-      ntobc_b    , &     !:  first record used
-      ntobc_a            !:  second record used
-
-   CHARACTER (len=40) :: &    ! name of data files
-      cl_obc_eTS   , cl_obc_eU,  &
-      cl_obc_wTS   , cl_obc_wU,  &
-      cl_obc_nTS   , cl_obc_nV,  &
-      cl_obc_sTS   , cl_obc_sV
+   INTEGER ::   ntobc        ! where we are in the obc file
+   INTEGER ::   ntobc_b      ! first record used
+   INTEGER ::   ntobc_a      ! second record used
+
+   CHARACTER (len=40) ::   cl_obc_eTS, cl_obc_eU   ! name of data files
+   CHARACTER (len=40) ::   cl_obc_wTS, cl_obc_wU   !   -       -
+   CHARACTER (len=40) ::   cl_obc_nTS, cl_obc_nV   !   -       -
+   CHARACTER (len=40) ::   cl_obc_sTS, cl_obc_sV   !   -       -
 
 # if defined key_dynspg_ts
    ! bt arrays for interpolating time dependent data on the boundaries
-   INTEGER :: nt_m=0, ntobc_m
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtedta, vbtedta, sshedta       ! East
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtwdta, vbtwdta, sshwdta   ! West
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtndta, vbtndta, sshndta   ! North
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtsdta, vbtsdta, sshsdta   ! South
+   INTEGER ::   nt_m=0, ntobc_m
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtedta, vbtedta, sshedta       ! East
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtwdta, vbtwdta, sshwdta ! West
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtndta, vbtndta, sshndta ! North
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtsdta, vbtsdta, sshsdta ! South
    ! arrays used for interpolating time dependent data on the boundaries
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: uedta, vedta, tedta, sedta    ! East
@@ -66 +61 @@
 # else
    ! bt arrays for interpolating time dependent data on the boundaries
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtedta, vbtedta, sshedta        ! East
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtwdta, vbtwdta, sshwdta        ! West
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtndta, vbtndta, sshndta        ! North
-   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubtsdta, vbtsdta, sshsdta        ! South
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtedta, vbtedta, sshedta        ! East
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtwdta, vbtwdta, sshwdta        ! West
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtndta, vbtndta, sshndta        ! North
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ubtsdta, vbtsdta, sshsdta        ! South
    ! arrays used for interpolating time dependent data on the boundaries
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: uedta, vedta, tedta, sedta    ! East
@@ -77 +72 @@
 # endif
    ! Masks set to .TRUE. after successful allocation below
-   LOGICAL, ALLOCATABLE, SAVE, DIMENSION (:,: ) :: ltemsk, luemsk, lvemsk  ! boolean msks
-   LOGICAL, ALLOCATABLE, SAVE, DIMENSION (:,: ) :: ltwmsk, luwmsk, lvwmsk  ! used for outliers
-   LOGICAL, ALLOCATABLE, SAVE, DIMENSION (:,: ) :: ltnmsk, lunmsk, lvnmsk  ! checks
-   LOGICAL, ALLOCATABLE, SAVE, DIMENSION (:,: ) :: ltsmsk, lusmsk, lvsmsk
+   LOGICAL , ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ltemsk, luemsk, lvemsk  ! boolean msks
+   LOGICAL , ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ltwmsk, luwmsk, lvwmsk  ! used for outliers
+   LOGICAL , ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ltnmsk, lunmsk, lvnmsk  ! checks
+   LOGICAL , ALLOCATABLE, SAVE, DIMENSION(:,:)   :: ltsmsk, lusmsk, lvsmsk
 
    !! * Substitutions
@@ -88 +83 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS