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 11391 for NEMO/branches/2019 – NEMO

Changeset 11391 for NEMO/branches/2019


Ignore:
Timestamp:
2019-08-02T11:03:40+02:00 (5 years 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.