Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcclo.F90

Timestamp:

2021-11-26T12:27:56+01:00 (3 years ago)

Author:

sparonuz

Message:

Mixed precision version, tested up to 30 years on ORCA2.

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcclo.F90 (modified) (8 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcclo.F90

@@ -39 +39 @@
    PUBLIC sbc_clo_init
    !
-   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrcg, rsurftrgg      !: closed sea source/target glo surface areas 
-   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrcr, rsurftrgr      !: closed sea source/target rnf surface areas 
-   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrce, rsurftrge      !: closed sea source/target emp surface areas 
+   REAL(dp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrcg, rsurftrgg      !: closed sea source/target glo surface areas 
+   REAL(dp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrcr, rsurftrgr      !: closed sea source/target rnf surface areas 
+   REAL(dp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: rsurfsrce, rsurftrge      !: closed sea source/target emp surface areas 
    !
    INTEGER, PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:)  :: mcsgrpg, mcsgrpr, mcsgrpe !: closed sea group for glo, rnf and emp
@@ -105 +105 @@
       INTEGER         , INTENT(in   ) ::   kt       ! ocean model time step
       !
-      REAL(wp), DIMENSION(jpi,jpj) :: zwcs, zqcs    ! water flux and heat flux correction due to closed seas
+      REAL(dp), DIMENSION(jpi,jpj) :: zwcs, zqcs    ! water flux and heat flux correction due to closed seas
       !!----------------------------------------------------------------------
       !
@@ -139 +139 @@
       INTEGER ,                 INTENT(in   ) :: kncs          ! closed sea number
       INTEGER , DIMENSION(:,:), INTENT(in   ) :: kmaskcs       ! closed sea mask
-      REAL(wp), DIMENSION(:)  , INTENT(  out) :: psurfsrc      ! source surface area
+      REAL(dp), DIMENSION(:)  , INTENT(  out) :: psurfsrc      ! source surface area
 
       ! local variables
@@ -175 +175 @@
       ! output
       INTEGER , DIMENSION(:)  , INTENT(  out) :: kcsgrp              ! closed sea group number
-      REAL(wp), DIMENSION(:)  , INTENT(  out) :: psurftrg            ! target surface area
+      REAL(dp), DIMENSION(:)  , INTENT(  out) :: psurftrg            ! target surface area
 
       ! local variables
@@ -224 +224 @@
       INTEGER, DIMENSION(:) , INTENT(in   ) :: kcsgrp              ! closed sea group number
       !
-      REAL(wp), DIMENSION(:), INTENT(in   ) :: psurfsrc, psurftrg  ! source and target surface area
+      REAL(dp), DIMENSION(:), INTENT(in   ) :: psurfsrc, psurftrg  ! source and target surface area
       !
       CHARACTER(LEN=3)      , INTENT(in   ) :: cdcstype            ! closed sea scheme used for redistribution
@@ -262 +262 @@
       INTEGER, DIMENSION(:,:), INTENT(in)     :: kmsk_src, kmsk_grp, kmsk_opnsea      ! source, target, open ocean mask
       
-      REAL(wp), DIMENSION(:)  , INTENT(in   ) :: psurfsrc, psurftrg, psurf_opnsea ! source, target and open ocean surface area
-      REAL(wp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs                       ! water and heat flux correction due to closed seas
+      REAL(dp), DIMENSION(:)  , INTENT(in   ) :: psurfsrc, psurftrg, psurf_opnsea ! source, target and open ocean surface area
+      REAL(dp), DIMENSION(:,:), INTENT(inout) :: pwcs, pqcs                       ! water and heat flux correction due to closed seas
 
 
@@ -270 +270 @@
       INTEGER, DIMENSION(jpi,jpj) :: imsk_src, imsk_trg  ! tmp array source and target closed sea masks
       
-      REAL(wp) :: zcsfw, zcsh        ! total fresh water and associated heat over one closed sea
-      REAL(wp) :: zcsfwf             ! mean fresh water flux over one closed sea
-      REAL(wp) :: zsurftrg, zsurfsrc ! total target surface area
+      REAL(dp) :: zcsfw, zcsh        ! total fresh water and associated heat over one closed sea
+      REAL(dp) :: zcsfwf             ! mean fresh water flux over one closed sea
+      REAL(dp) :: zsurftrg, zsurfsrc ! total target surface area
       !!----------------------------------------------------------------------
       !
@@ -329 +329 @@
       INTEGER,  INTENT(in) :: klen
       INTEGER,  ALLOCATABLE, DIMENSION(:), INTENT(  out) :: kvargrp
-      REAL(wp), ALLOCATABLE, DIMENSION(:), INTENT(  out) :: pvarsrc, pvartrg 
+      REAL(dp), ALLOCATABLE, DIMENSION(:), INTENT(  out) :: pvarsrc, pvartrg 
       !
       ! local variables