Ignore:
Timestamp:
2020-07-02T16:24:31+02:00 (8 months ago)
Author:
orioltp
Message:

Merging dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/nemogcm.F90

    r13216 r13226  
    362362         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    363363         WRITE(numout,*) 
     364          
     365         ! Print the working precision to ocean.output 
     366         IF (wp == dp) THEN 
     367            WRITE(numout,*) "Working precision = double-precision" 
     368         ELSE 
     369            WRITE(numout,*) "Working precision = single-precision" 
     370         ENDIF 
     371         WRITE(numout,*) 
    364372         ! 
    365373         WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
Note: See TracChangeset for help on using the changeset viewer.