/[lmdze]/trunk/Sources/dyn3d/ce0l.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/ce0l.f

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

trunk/dyn3d/ce0l.f90 revision 79 by guez, Fri Feb 28 17:52:47 2014 UTC trunk/Sources/dyn3d/ce0l.f revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 3  PROGRAM ce0l Line 3  PROGRAM ce0l
3    ! This program sets the initial and boundary values.    ! This program sets the initial and boundary values.
4    
5    use conf_gcm_m, only: conf_gcm    use conf_gcm_m, only: conf_gcm
6      use dimens_m, only: iim, jjm
7    use etat0_mod, only: etat0    use etat0_mod, only: etat0
8      use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
9    use jumble, only: new_unit    use jumble, only: new_unit
10    use limit_mod, only: limit    use limit_mod, only: limit
11      use read_serre_m, only: read_serre
12    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml
13    
14    implicit none    implicit none
15    
16      REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
17    
18    !-------------------------------------    !-------------------------------------
19    
20    call new_unit(unit_nml)    call new_unit(unit_nml)
21    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
22    CALL conf_gcm    CALL conf_gcm
23    CALL etat0    call read_serre
24      CALL etat0(phis)
25    CALL limit    CALL limit
26      CALL grilles_gcm_netcdf_sub(phis)
27    close(unit_nml)    close(unit_nml)
28    
29  END PROGRAM ce0l  END PROGRAM ce0l
Legend:
Removed from v.79  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21