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 841 for trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90 – NEMO

Ignore:
Timestamp:
2008-03-11T15:50:54+01:00 (16 years ago)
Author:
rblod
Message:

Light changes in SBC routines to use classical CLIO bulks with LIM3

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90

    r719 r841  
    7171      USE blk_oce         ! bulk variable 
    7272      USE bulk            ! bulk module 
     73      USE ice_oce 
    7374 
    7475      !! * arguments 
    … …  
    227228      CALL blk( kt )                ! bulk formulea fluxes  
    228229 
     230#if defined key_lim3 
     231      tatm_ice(:,:) = tatm(:,:) 
     232#endif 
     233 
    229234      ! ------------------- ! 
    230235      ! Last call kt=nitend ! 
Note: See TracChangeset for help on using the changeset viewer.