- Timestamp:
- 2008-04-21T14:14:58+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/albedo.F90
r888 r892 33 33 !!* namelist namalb 34 34 REAL(wp) :: & 35 cgren = 0.06 , & ! correction of the snow or ice albedo to take into account 36 ! ! effects of cloudiness (Grenfell & Perovich, 1984) 35 cgren = 0.06 , & ! cloudiness effect on snow or ice albedo (Grenfell & Perovich, 1984) 37 36 #if defined key_lim3 38 37 albice = 0.53 , & ! albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers) -
trunk/NEMO/OPA_SRC/SBC/fldread.F90
r888 r892 96 96 sd(jf)%nyear = nyear 97 97 CASE( 1 ) 98 WRITE(sd(jf)%clname, '(a, " _0000.nc")' ) TRIM( sd(jf)%clrootname )98 WRITE(sd(jf)%clname, '(a, ".nc")' ) TRIM( sd(jf)%clrootname ) 99 99 sd(jf)%nyear = 0000 100 100 END SELECT -
trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r888 r892 33 33 USE par_ice 34 34 USE ice 35 USE ice_oce ! For ice surface temperature 35 36 #elif defined key_lim2 36 37 USE par_ice_2 … … 192 193 ! 193 194 CALL fld_read( kt, nn_fsbc, sf ) ! input fields provided at the current time-step 195 ! 196 #if defined key_lim3 197 tatm_ice(:,:) = sf(jp_tair)%fnow(:,:) !RB ugly patch 198 #endif 194 199 ! 195 200 IF(lwp .AND. nitend-nit000 <= 100 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.