/[lmdze]/trunk/libf/phylmd/clmain.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/clmain.f90

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 141  cIM cf JLD Line 141  cIM cf JLD
141        REAL run_off_lic_0(klon), y_run_off_lic_0(klon)        REAL run_off_lic_0(klon), y_run_off_lic_0(klon)
142    
143        REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf)        REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf)
144        REAL rugmer(klon), agesno(klon,nbsrf),rugoro(klon)        REAL rugmer(klon), agesno(klon,nbsrf)
145          real, intent(in):: rugoro(klon)
146        REAL cdragh(klon), cdragm(klon)        REAL cdragh(klon), cdragm(klon)
147        integer jour            ! jour de l'annee en cours        integer jour            ! jour de l'annee en cours
148        real rmu0(klon)         ! cosinus de l'angle solaire zenithal        real rmu0(klon)         ! cosinus de l'angle solaire zenithal
# Line 253  c Line 254  c
254        LOGICAL first_appel        LOGICAL first_appel
255        SAVE first_appel        SAVE first_appel
256        DATA first_appel/.true./        DATA first_appel/.true./
257        LOGICAL debugindex        LOGICAL:: debugindex = .false.
       SAVE debugindex  
       DATA debugindex/.false./  
258        integer idayref        integer idayref
259        REAL t2m(klon,nbsrf), q2m(klon,nbsrf)        REAL t2m(klon,nbsrf), q2m(klon,nbsrf)
260        REAL u10m(klon,nbsrf), v10m(klon,nbsrf)        REAL u10m(klon,nbsrf), v10m(klon,nbsrf)
# Line 456  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 492  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 941  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.12  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21