Changeset 10480


Ignore:
Timestamp:
2019-01-09T12:28:32+01:00 (15 months ago)
Author:
mathiot
Message:

add comments in bdyvol (ticket #2200)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90

    r10461 r10480  
    6969      INTEGER  ::   ib_bdy, ii, ij 
    7070      REAL(wp) ::   zubtpecor, ztranst 
    71       REAL(wp), SAVE :: z_cflxemp    
    72       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 
    73       REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: phu, phv 
     71      REAL(wp), SAVE :: z_cflxemp                                  ! cumulated emp flux 
     72      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d  ! Barotropic velocities 
     73      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: phu, phv         ! Ocean depth at U- and V-points 
    7474      TYPE(OBC_INDEX), POINTER :: idx 
    7575      !!----------------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.