/[lmdze]/trunk/Sources/phylmd/clmain.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clmain.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 455  C (a affiner) Line 455  C (a affiner)
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
# Line 491  c          tabindx(1:knon)=(/FLOAT(i),i= Line 491  c          tabindx(1:knon)=(/FLOAT(i),i=
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)
# Line 940  c Line 940  c
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
Legend:
Removed from v.13  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21