Changeset 11391


Ignore:
Timestamp:
2019-08-02T11:03:40+02:00 (14 months ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : flowri compiling without key_iomput, see #2285

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/flowri.F90

    r11385 r11391  
    251251 
    252252               istart = (/jfl,irec/) 
    253                icfl   = INT( tpkfl(jfl) )            ! K-index of the nearest point before 
    254  
    255                CALL flioputv( numflo , 'traj_lon'    , zlon(jfl)        , start=istart ) 
    256                CALL flioputv( numflo , 'traj_lat'    , zlat(jfl)        , start=istart )   
    257                CALL flioputv( numflo , 'traj_depth'  , zdep(jfl)        , start=istart )   
    258                CALL flioputv( numflo , 'traj_temp'   , ztemp(icfl,jfl)  , start=istart )   
    259                CALL flioputv( numflo , 'traj_salt'   , zsal(icfl,jfl)   , start=istart )   
    260                CALL flioputv( numflo , 'traj_dens'   , zrho(icfl,jfl)   , start=istart )   
     253 
     254               CALL flioputv( numflo , 'traj_lon'    , zlon(jfl), start=istart ) 
     255               CALL flioputv( numflo , 'traj_lat'    , zlat(jfl), start=istart )   
     256               CALL flioputv( numflo , 'traj_depth'  , zdep(jfl), start=istart )   
     257               CALL flioputv( numflo , 'traj_temp'   , ztem(jfl), start=istart )   
     258               CALL flioputv( numflo , 'traj_salt'   , zsal(jfl), start=istart )   
     259               CALL flioputv( numflo , 'traj_dens'   , zrho(jfl), start=istart )   
    261260 
    262261            ENDDO 
Note: See TracChangeset for help on using the changeset viewer.