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 11392 – NEMO

Changeset 11392


Ignore:
Timestamp:
2019-08-02T11:07:12+02:00 (5 years ago)
Author:
girrmann
Message:

dev_r10984_HPC-13 : merge DYN with BDY@11391, see #2308

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_DYN_optimization/src/OCE/FLO/flowri.F90

    r11390 r11392  
    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.