455 |
pctsrf_pot(:,is_oce) = 1. - zmasq(:) |
pctsrf_pot(:,is_oce) = 1. - zmasq(:) |
456 |
pctsrf_pot(:,is_sic) = 1. - zmasq(:) |
pctsrf_pot(:,is_sic) = 1. - zmasq(:) |
457 |
|
|
458 |
DO 99999 nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
459 |
|
|
460 |
c chercher les indices: |
c chercher les indices: |
461 |
DO j = 1, klon |
DO j = 1, klon |
491 |
CALL histwrite(nidbg,cl_surf(nsrf),itap,debugtab,iim*(jjm+1) |
CALL histwrite(nidbg,cl_surf(nsrf),itap,debugtab,iim*(jjm+1) |
492 |
$ ,ndexbg) |
$ ,ndexbg) |
493 |
ENDIF |
ENDIF |
494 |
IF (knon.EQ.0) GOTO 99999 |
IF (knon.EQ.0) cycle |
495 |
DO j = 1, knon |
DO j = 1, knon |
496 |
i = ni(j) |
i = ni(j) |
497 |
ypct(j) = pctsrf(i,nsrf) |
ypct(j) = pctsrf(i,nsrf) |
940 |
seaice(1:klon) = y_seaice(1:klon) |
seaice(1:klon) = y_seaice(1:klon) |
941 |
ENDIF !nsrf |
ENDIF !nsrf |
942 |
ENDIF !OCEAN |
ENDIF !OCEAN |
943 |
99999 CONTINUE |
end do |
944 |
C |
C |
945 |
C On utilise les nouvelles surfaces |
C On utilise les nouvelles surfaces |
946 |
C A rajouter: conservation de l'albedo |
C A rajouter: conservation de l'albedo |