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 7192 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90 – NEMO

Ignore:
Timestamp:
2016-11-04T12:23:02+01:00 (7 years ago)
Author:
cetlod
Message:

new top interface : minor bugfixes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90

    r7068 r7192  
    214214            IF( l_trdtrc ) THEN 
    215215               ! 
    216                zs2rdt = 1. / ( 2. * rdt * FLOAT( nn_dttrc ) ) 
     216               zs2rdt = 1. / ( 2. * rdt * REAL( nn_dttrc, wp ) ) 
    217217               ztrtrdb(:,:,:) = ( ptrb(:,:,:,jn) - ztrtrdb(:,:,:) ) * zs2rdt 
    218218               ztrtrdn(:,:,:) = ( ptrn(:,:,:,jn) - ztrtrdn(:,:,:) ) * zs2rdt  
Note: See TracChangeset for help on using the changeset viewer.