Changeset 1208
- Timestamp:
- 2008-09-25T12:23:13+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/albedo.F90
r1146 r1208 95 95 llmask = ( ph_snw == 0.e0 ) .AND. ( pt_ice >= rt0_ice ) 96 96 ! ice free of snow and melts 97 WHERE( llmask ) ; zalbfz = albice 98 ELSEWHERE ; zalbfz = alphdi 97 WHERE( llmask ) 98 zalbfz = albice 99 ELSEWHERE 100 zalbfz = alphdi 99 101 END WHERE 100 102 -
trunk/NEMO/OPA_SRC/lib_mpp.F90
r1146 r1208 4421 4421 4422 4422 ! Allocate the right size to nrank_north 4423 #if ! defined key_agrif 4423 4424 IF(ALLOCATED(nrank_ice)) DEALLOCATE(nrank_ice) 4425 #else 4426 DEALLOCATE(nrank_ice) 4427 #endif 4428 4424 4429 ALLOCATE(nrank_ice(ndim_rank_ice)) 4425 4430 … … 5359 5364 INTEGER, OPTIONAL :: localComm 5360 5365 function_value = 0 5366 localComm = 0 5361 5367 END FUNCTION mynode 5362 5368
Note: See TracChangeset
for help on using the changeset viewer.