- Timestamp:
- 2012-07-11T13:22:58+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r3211 r3432 95 95 !!--------------------------------------------------------------------- 96 96 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 97 USE wrk_nemo, ONLY: zalb_ice_os => wrk_3d_1 ! albedo of the ice under overcast sky 98 USE wrk_nemo, ONLY: zalb_ice_cs => wrk_3d_2 ! albedo of ice under clear sky 97 USE wrk_nemo, ONLY: wrk_3d_1, wrk_3d_2 ! for albedo of ice under overcast/clear sky 99 98 !! 100 99 INTEGER, INTENT(in) :: kt ! ocean time step … … 103 102 INTEGER :: jl ! dummy loop index 104 103 REAL(wp) :: zcoef ! local scalar 104 REAL(wp), POINTER, DIMENSION(:,:,:) :: zalb_ice_os, zalb_ice_cs ! albedo of the ice under overcast/clear sky 105 105 !!---------------------------------------------------------------------- 106 106 … … 108 108 CALL ctl_stop( 'sbc_ice_lim: requested workspace arrays are unavailable' ) ; RETURN 109 109 ENDIF 110 zalb_ice_os => wrk_3d_1(:,:,1:jpl) ; zalb_ice_cs => wrk_3d_2(:,:,1:jpl) 110 111 111 112 IF( kt == nit000 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.