Changeset 23 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

Timestamp:

02/13/12 19:45:12 (12 years ago)

Author:

rblod

Message:

Add possibility to choose where to apply the barotropic correction

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

@@ -73 +73 @@
 
    REAL(wp), PUBLIC ::   obcsurftot       !: Total lateral surface of open boundaries
+!     Add computation of E/W/N/S lateral surface of open boundaries
+   REAL(wp), PUBLIC ::    &  !:
+      obcsurfeast     ,   &  !: East  lateral surface of open boundaries
+      obcsurfwest     ,   &  !: West  lateral surface of open boundaries
+      obcsurfnorth    ,   &  !: North lateral surface of open boundaries
+      obcsurfsouth           !: South lateral surface of open boundaries
    
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: &  !: