Changeset 905 for trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
- Timestamp:
- 2008-04-24T16:57:01+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r888 r905 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 USE prtctl ! Print control 34 #if defined key_lim3 35 USE ice_oce ! For ice surface temperature 36 #endif 37 34 38 35 39 IMPLICIT NONE … … 186 190 187 191 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 188 196 189 197 IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.