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 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/USR/usrdef_hgr.F90 – NEMO

Ignore:
Timestamp:
2020-12-18T18:52:57+01:00 (4 years ago)
Author:
mcastril
Message:

Add Mixed Precision support by Oriol Tintó

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/USR/usrdef_hgr.F90

    r13295 r14219  
    5959      !!              - define u- & v-surfaces (if gridsize reduction is used in some straits) (in m2) 
    6060      !!---------------------------------------------------------------------- 
    61       REAL(wp), DIMENSION(:,:), INTENT(out) ::   plamt, plamu, plamv, plamf   ! longitude outputs                     [degrees] 
    62       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pphit, pphiu, pphiv, pphif   ! latitude outputs                      [degrees] 
     61      REAL(dp), DIMENSION(:,:), INTENT(out)  :: plamt 
     62      REAL(dp), DIMENSION(:,:), INTENT(out)  :: plamf 
     63      REAL(wp), DIMENSION(:,:), INTENT(out) :: plamu, plamv   ! longitude outputs                     [degrees] 
     64      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pphit 
     65      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pphif 
     66      REAL(wp), DIMENSION(:,:), INTENT(out) :: pphiu, pphiv   ! latitude outputs                      [degrees] 
    6367      INTEGER                 , INTENT(out) ::   kff                          ! =1 Coriolis parameter computed here, =0 otherwise 
    6468      REAL(wp), DIMENSION(:,:), INTENT(out) ::   pff_f, pff_t                 ! Coriolis factor at f-point                [1/s] 
    65       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe1t, pe1u, pe1v, pe1f       ! i-scale factors                             [m] 
    66       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe2t, pe2u, pe2v, pe2f       ! j-scale factors                             [m] 
     69      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe1t 
     70      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe1u 
     71      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe1f 
     72      REAL(wp), DIMENSION(:,:), INTENT(out) :: pe1v       ! i-scale factors                             [m] 
     73      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe2t 
     74      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe2v 
     75      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe2f 
     76      REAL(wp), DIMENSION(:,:), INTENT(out) :: pe2u       ! j-scale factors                             [m] 
    6777      INTEGER                 , INTENT(out) ::   ke1e2u_v                     ! =1 u- & v-surfaces computed here, =0 otherwise  
    6878      REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe1e2u, pe1e2v               ! u- & v-surfaces (if reduction in strait)   [m2] 
Note: See TracChangeset for help on using the changeset viewer.