New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12124 for NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA/diaar5.F90 – NEMO

Ignore:
Timestamp:
2019-12-09T15:36:08+01:00 (4 years ago)
Author:
clem
Message:

cosmetics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA/diaar5.F90

    r12009 r12124  
    3030   PUBLIC   dia_ar5_hst    ! heat/salt transport 
    3131 
    32    REAL(wp)                         ::   vol0         ! ocean volume (interior domain) 
    33    REAL(wp)                         ::   area_tot     ! total ocean surface (interior domain) 
     32   REAL(wp) ::   vol0         ! ocean volume (interior domain) 
     33   REAL(wp) ::   area_tot     ! total ocean surface (interior domain) 
    3434   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:  ) ::   area         ! cell surface (interior domain) 
    3535   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:  ) ::   thick0       ! ocean thickness (interior domain) 
    … …  
    327327      !! Called from all advection and/or diffusion routines 
    328328      !!---------------------------------------------------------------------- 
    329       INTEGER                         , INTENT(in )  :: ktra  ! tracer index 
    330       CHARACTER(len=3)                , INTENT(in)   :: cptr  ! transport type  'adv'/'ldf' 
    331       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)   :: pua   ! 3D input array of advection/diffusion 
    332       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)   :: pva   ! 3D input array of advection/diffusion 
    333       ! 
    334       INTEGER    ::  ji, jj, jk 
    335       REAL(wp), DIMENSION(jpi,jpj)  :: z2d 
     329      INTEGER                         , INTENT(in) ::  ktra  ! tracer index 
     330      CHARACTER(len=3)                , INTENT(in) ::  cptr  ! transport type  'adv'/'ldf' 
     331      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::  pua   ! 3D input array of advection/diffusion 
     332      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::  pva   ! 3D input array of advection/diffusion 
     333      ! 
     334      INTEGER ::  ji, jj, jk 
     335      REAL(wp), DIMENSION(jpi,jpj) ::  z2d 
    336336 
    337337     
Note: See TracChangeset for help on using the changeset viewer.