Changeset 6034 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 16, 2026, 11:49:42 AM (6 days ago)
Author:
evignon
Message:

simplehydrol dans le 1d et dans etat0phys_netcdf

Location:
LMDZ6/trunk/libf
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r6020 r6034  
    8787!-------------------------------------------------------------------------------
    8888  USE control_mod
    89   USE fonte_neige_mod
     89  USE simplehydrol_mod
    9090  USE pbl_surface_mod
    9191  USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    … …  
    286286  !GG
    287287
    288   CALL fonte_neige_init(run_off_lic_0)
     288  CALL simplehydrol_init(run_off_lic_0)
    289289!GG  CALL pbl_surface_init( fder, snsrf, qsurf, tsoil )
    290290  CALL pbl_surface_init( fder, snsrf, qsurf, tsoil, hice, tsic, bilg_cumul)

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5669 r6034  
    3232   USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
    3333                                 pbl_surface_final
    34    USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
     34   USE simplehydrol_mod, only : simplehydrol_init, simplehydrol_final
    3535
    3636   USE infotrac ! new
    … …  
    799799        type_ocean = "force"
    800800        run_off_lic_0(1) = restart_runoff
    801         call fonte_neige_init(run_off_lic_0)
     801        call simplehydrol_init(run_off_lic_0)
    802802
    803803        fder=0.
    … …  
    980980          call pbl_surface_final( fder, snsrf, qsurfsrf, tsoil)
    981981        print*,'after surf final'
    982           CALL fonte_neige_final(run_off_lic_0)
     982          CALL simplehydrol_final(run_off_lic_0)
    983983        endif
    984984

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r5669 r6034  
    3232   USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
    3333                                 pbl_surface_final
    34    USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
     34   USE simplehydrol_mod, only : simplehydrol_init, simplehydrol_final
    3535
    3636   USE infotrac ! new
    … …  
    561561        type_ocean = "force"
    562562        run_off_lic_0(1) = restart_runoff
    563         call fonte_neige_init(run_off_lic_0)
     563        call simplehydrol_init(run_off_lic_0)
    564564
    565565        fder=0.
    … …  
    776776          call pbl_surface_final( fder, snsrf, qsurfsrf, tsoil)
    777777        print*,'after surf final'
    778           CALL fonte_neige_final(run_off_lic_0)
     778          CALL simplehydrol_final(run_off_lic_0)
    779779        endif
    780780

  • LMDZ6/trunk/libf/phylmd/simplehydrol_mod.F90

    r6033 r6034  
    7070      INTEGER                           :: error
    7171      CHARACTER(len=80)              :: abort_message
    72       CHARACTER(len=20)              :: modname = 'fonte_neige_init'
     72      CHARACTER(len=20)              :: modname = 'simplehydrol_init'
    7373
    7474! Allocate run-off at landice and initilize with field read from restart

  • LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

    r6033 r6034  
    7878    USE phys_output_var_mod, ONLY : snow_o,zfra_o
    7979#ifdef ISO   
    80     USE fonte_neige_mod,  ONLY : xtrun_off_lic
     80    USE simplehydrol_mod,  ONLY : xtrun_off_lic
    8181    USE infotrac_phy,     ONLY : ntiso,niso
    8282    USE isotopes_routines_mod, ONLY: calcul_iso_surf_lic_vectall
Note: See TracChangeset for help on using the changeset viewer.