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 11819 for NEMO/releases/release-4.0.1 – NEMO

Ignore:
Timestamp:
2019-10-29T10:25:15+01:00 (4 years ago)
Author:
jchanut
Message:

Fixes to compile with gcc 9.2

Location:
NEMO/releases/release-4.0.1/src/OCE/FLO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0.1/src/OCE/FLO/flodom.F90

    r11536 r11819  
    433433      IF( ABS(dlx) > 1.0_wp ) dlx = 1.0_wp 
    434434      ! 
    435       dld = ATAN(DSQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls 
     435      dld = ATAN(SQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls 
    436436      flo_dstnce = dld * 1000._wp 
    437437      ! 
  • NEMO/releases/release-4.0.1/src/OCE/FLO/flowri.F90

    r11536 r11819  
    221221               clname=TRIM(clname)//".nc" 
    222222 
    223                CALL fliocrfd( clname , (/ 'ntraj' , 't' /), (/ jpnfl , -1  /) , numflo ) 
     223               CALL fliocrfd( clname , (/'ntraj' , '    t' /), (/ jpnfl , -1/) , numflo ) 
    224224    
    225225               CALL fliodefv( numflo, 'traj_lon'    , (/1,2/), v_t=flio_r8, long_name="Longitude"           , units="degrees_east"  ) 
Note: See TracChangeset for help on using the changeset viewer.