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 2502 for trunk/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2010-12-22T15:32:50+01:00 (13 years ago)
Author:
rblod
Message:

Ugly fix for #667 for safety in 3.2

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1792 r2502  
    236236      !                                                         ! (update freshwater fluxes) 
    237237      ! 
     238!RBbug do not understand why see ticket 667 
     239      CALL lbc_lnk( emp, 'T', 1. )   
     240      ! 
    238241      IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN 
    239242         CALL iom_put( "emp"    , emp       )                   ! upward water flux 
Note: See TracChangeset for help on using the changeset viewer.