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 12546 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/DIA/diaar5.F90 – NEMO

Ignore:
Timestamp:
2020-03-13T11:06:44+01:00 (4 years ago)
Author:
orioltp
Message:

Adding precision specification in hardcoded reals and other modifications to allow compilation without forcing reals without precision specification to a certain value through compiler flags

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/DIA/diaar5.F90

    r12489 r12546  
    323323         z2d(ji,jj) = z2d(ji,jj) + puflx(ji,jj,jk)  
    324324      END_3D 
    325        CALL lbc_lnk( 'diaar5', z2d, 'U', -1. ) 
     325       CALL lbc_lnk( 'diaar5', z2d, 'U', -1.0_wp ) 
    326326       IF( cptr == 'adv' ) THEN 
    327327          IF( ktra == jp_tem ) CALL iom_put( 'uadv_heattr' , rho0_rcp * z2d )  ! advective heat transport in i-direction 
    … …  
    337337          z2d(ji,jj) = z2d(ji,jj) + pvflx(ji,jj,jk)  
    338338       END_3D 
    339        CALL lbc_lnk( 'diaar5', z2d, 'V', -1. ) 
     339       CALL lbc_lnk( 'diaar5', z2d, 'V', -1.0_wp ) 
    340340       IF( cptr == 'adv' ) THEN 
    341341          IF( ktra == jp_tem ) CALL iom_put( 'vadv_heattr' , rho0_rcp * z2d )  ! advective heat transport in j-direction 
Note: See TracChangeset for help on using the changeset viewer.