/[lmdze]/trunk/phylmd/clesphys2.f
ViewVC logotype

Diff of /trunk/phylmd/clesphys2.f

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

trunk/phylmd/clesphys2.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/Sources/phylmd/clesphys2.f revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC
# Line 5  module clesphys2 Line 5  module clesphys2
5    implicit none    implicit none
6    
7    LOGICAL:: cycle_diurne = .TRUE.    LOGICAL:: cycle_diurne = .TRUE.
8    ! Cette option permet d'éteindre le cycle diurne.    ! Cette option permet d'\'eteindre le cycle diurne. Peut \^etre utile
9    ! Peut être utile pour accélérer le code.    ! pour acc\'el\'erer le code.
10    
11    LOGICAL:: soil_model = .TRUE.    LOGICAL:: soil_model = .TRUE.
12    ! Choix du modele de sol (Thermique ?)    ! Choix du modele de sol (Thermique ?)
# Line 36  contains Line 36  contains
36    subroutine read_clesphys2    subroutine read_clesphys2
37    
38      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
39        use nr_util, only: assert
40        use conf_gcm_m, only: day_step, iphysiq
41    
42      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, ok_orodr, &
43           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
44    
45      !------------------------------------      !------------------------------------
46    
47      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
48      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
49      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
50        call assert(iflag_con >= 2 .and. iflag_con <= 4, "read_clesphys2 iflag_con")
51      if (iflag_con <= 1) then      call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
52         print *, "bad value for iflag_con"           "read_clesphys2 nbapp_rad")
53         stop 1      call assert(nbapp_rad >= 4 .or. .not. cycle_diurne, &
54      end if           "read_clesphys2: minimum 4 calls to radiative transfer per day if " &
55             // "cycle diurne")
56    
57    end subroutine read_clesphys2    end subroutine read_clesphys2
58    
Legend:
Removed from v.76  
changed lines
  Added in v.154
  ViewVC Help
Powered by ViewVC 1.1.21