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/DOM/domhgr.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/DOM/domhgr.F90

    r13286 r14219  
    167167      !! 
    168168      !!---------------------------------------------------------------------- 
    169       REAL(wp), DIMENSION(:,:), INTENT(out) ::   plamt, plamu, plamv, plamf   ! longitude outputs  
    170       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pphit, pphiu, pphiv, pphif   ! latitude outputs 
     169      REAL(dp), DIMENSION(:,:), INTENT(out)  :: plamt, plamf 
     170      REAL(wp), DIMENSION(:,:), INTENT(out) :: plamu, plamv   ! longitude outputs  
     171      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pphit, pphif 
     172      REAL(wp), DIMENSION(:,:), INTENT(out) :: pphiu, pphiv   ! latitude outputs 
    171173      INTEGER                 , INTENT(out) ::   kff                          ! =1 Coriolis parameter read here, =0 otherwise 
    172174      REAL(wp), DIMENSION(:,:), INTENT(out) ::   pff_f, pff_t                 ! Coriolis factor at f-point (if found in file) 
    173       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe1t, pe1u, pe1v, pe1f       ! i-scale factors  
    174       REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe2t, pe2u, pe2v, pe2f       ! j-scale factors 
     175      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe1t, pe1u, pe1f  
     176      REAL(wp), DIMENSION(:,:), INTENT(out) :: pe1v       ! i-scale factors  
     177      REAL(dp), DIMENSION(:,:), INTENT(out)  :: pe2t, pe2v, pe2f 
     178      REAL(wp), DIMENSION(:,:), INTENT(out) :: pe2u       ! j-scale factors 
    175179      INTEGER                 , INTENT(out) ::   ke1e2u_v                     ! =1 u- & v-surfaces read here, =0 otherwise  
    176180      REAL(wp), DIMENSION(:,:), INTENT(out) ::   pe1e2u, pe1e2v              ! u- & v-surfaces (if found in file) 
Note: See TracChangeset for help on using the changeset viewer.