/[lmdze]/trunk/phylmd/Interface_surf/interfsurf_hq.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/interfsurf_hq.f

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

revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC revision 100 by guez, Wed Jul 2 19:07:58 2014 UTC
# Line 23  contains Line 23  contains
23      USE calcul_fluxs_m, ONLY: calcul_fluxs      USE calcul_fluxs_m, ONLY: calcul_fluxs
24      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
25      USE fonte_neige_m, ONLY: fonte_neige      USE fonte_neige_m, ONLY: fonte_neige
     USE gath2cpl_m, ONLY: gath2cpl  
26      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf      USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf
27      USE interface_surf, ONLY: coastalflow, riverflow, run_off, &      USE interface_surf, ONLY: coastalflow, riverflow, run_off, &
28           run_off_lic, conf_interface, tmp_rlic           run_off_lic, conf_interface
29      USE interfoce_lim_m, ONLY: interfoce_lim      USE interfoce_lim_m, ONLY: interfoce_lim
30      USE interfoce_slab_m, ONLY: interfoce_slab      USE interfoce_slab_m, ONLY: interfoce_slab
31      USE interfsur_lim_m, ONLY: interfsur_lim      USE interfsur_lim_m, ONLY: interfsur_lim
# Line 284  contains Line 283  contains
283               abort_message='Pb allocation run_off'               abort_message='Pb allocation run_off'
284               call abort_gcm(modname, abort_message, 1)               call abort_gcm(modname, abort_message, 1)
285            endif            endif
           !cym  
           run_off=0.0  
           !cym  
286    
287            ALLOCATE (tmp_rlic(iim, jjm+1))            run_off=0.0
           tmp_rlic = 0.0  
288         else if (size(coastalflow) /= knon) then         else if (size(coastalflow) /= knon) then
289            write(*, *)'Bizarre, le nombre de points continentaux'            write(*, *)'Bizarre, le nombre de points continentaux'
290            write(*, *)'a change entre deux appels. J''arrete ...'            write(*, *)'a change entre deux appels. J''arrete ...'
# Line 542  contains Line 537  contains
537         ! passage du run-off des glaciers calcule dans fonte_neige au coupleur         ! passage du run-off des glaciers calcule dans fonte_neige au coupleur
538         bidule=0.         bidule=0.
539         bidule(1:knon)= run_off_lic(1:knon)         bidule(1:knon)= run_off_lic(1:knon)
        call gath2cpl(bidule, tmp_rlic, klon, knon, iim, jjm, knindex)  
540    
541         ! calcul albedo         ! calcul albedo
542    
Legend:
Removed from v.99  
changed lines
  Added in v.100
  ViewVC Help
Powered by ViewVC 1.1.21