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

Changeset 1236


Ignore:
Timestamp:
2008-12-29T19:16:42+01:00 (15 years ago)
Author:
rblod
Message:

Correction of a print, see ticket #270

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/sbcflx.F90

    r1230 r1236  
    171171            WRITE(numout,*)  
    172172            WRITE(numout,*) ' day: ', ndastp , TRIM(sf(jf)%clvar), ' * ', zfact 
    173             CALL prihre( sf(jf)%fnow, jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout ) 
     173            CALL prihre( sf(jf)%fnow, jpi, jpj, 1, jpi, 20, 1, jpj, 10, zfact, numout ) 
    174174         END DO 
    175175         CALL FLUSH(numout) 
Note: See TracChangeset for help on using the changeset viewer.