Changeset 10480 for NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90

Timestamp:

2019-01-09T12:28:32+01:00 (6 years ago)

Author:

mathiot

Message:

add comments in bdyvol (ticket #2200)

File:

• NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90

@@ -69 +69 @@
       INTEGER  ::   ib_bdy, ii, ij
       REAL(wp) ::   zubtpecor, ztranst
-      REAL(wp), SAVE :: z_cflxemp   
-      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d
-      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: phu, phv
+      REAL(wp), SAVE :: z_cflxemp                                  ! cumulated emp flux
+      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d  ! Barotropic velocities
+      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: phu, phv         ! Ocean depth at U- and V-points
       TYPE(OBC_INDEX), POINTER :: idx
       !!-----------------------------------------------------------------------------