Changeset 11819 for NEMO

Timestamp:

2019-10-29T10:25:15+01:00 (5 years ago)

Author:

jchanut

Message:

Fixes to compile with gcc 9.2

Location:

NEMO/releases/release-4.0.1/src/OCE/FLO

Files:

• flodom.F90 (modified) (1 diff)
• flowri.F90 (modified) (1 diff)

NEMO/releases/release-4.0.1/src/OCE/FLO/flodom.F90

@@ -433 +433 @@
       IF( ABS(dlx) > 1.0_wp ) dlx = 1.0_wp
       !
-      dld = ATAN(DSQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls
+      dld = ATAN(SQRT( 1._wp * ( 1._wp-dlx )/( 1._wp+dlx ) )) * 222.24_wp / dls
       flo_dstnce = dld * 1000._wp
       !

NEMO/releases/release-4.0.1/src/OCE/FLO/flowri.F90

@@ -221 +221 @@
                clname=TRIM(clname)//".nc"
 
-               CALL fliocrfd( clname , (/ 'ntraj' , 't' /), (/ jpnfl , -1  /) , numflo )
+               CALL fliocrfd( clname , (/'ntraj' , '    t' /), (/ jpnfl , -1/) , numflo )
    
                CALL fliodefv( numflo, 'traj_lon'    , (/1,2/), v_t=flio_r8, long_name="Longitude"           , units="degrees_east"  )