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

Ignore:
Timestamp:
2008-04-24T16:57:01+02:00 (16 years ago)
Author:
ctlod
Message:

fill the tatm_ice(:,:) array which is used in LIM 3.0, see ticket: #113

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r888 r905  
    3232   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3333   USE prtctl          ! Print control 
     34#if defined key_lim3 
     35   USE ice_oce         ! For ice surface temperature 
     36#endif 
     37 
    3438 
    3539   IMPLICIT NONE 
     
    186190 
    187191      CALL fld_read( kt, nn_fsbc, sf )                ! input fields provided at the current time-step 
     192 
     193#if defined key_lim3 
     194      tatm_ice(:,:) = sf(jp_tair)%fnow(:,:) 
     195#endif 
    188196 
    189197      IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.