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 15648 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icectl.F90 – NEMO

Ignore:
Timestamp:
2022-01-17T12:35:51+01:00 (2 years ago)
Author:
sparonuz
Message:

Updated name preprocessor function CASTWP to CASTDP

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icectl.F90

    r14644 r15648  
    706706      CALL prt_ctl_info(' - Cell values : ') 
    707707      CALL prt_ctl_info('   ~~~~~~~~~~~~~ ') 
    708       CALL prt_ctl(tab2d_1=CASTWP(e1e2t)      , clinfo1=' cell area   :') 
     708      CALL prt_ctl(tab2d_1=CASTDP(e1e2t)      , clinfo1=' cell area   :') 
    709709      CALL prt_ctl(tab2d_1=at_i       , clinfo1=' at_i        :') 
    710710      CALL prt_ctl(tab2d_1=ato_i      , clinfo1=' ato_i       :') 
Note: See TracChangeset for help on using the changeset viewer.