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

Diff of /trunk/dyn3d/ce0l.f

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

trunk/libf/dyn3d/etat0_lim.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/ce0l.f revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 1  Line 1 
1  PROGRAM etat0_lim  PROGRAM ce0l
2    
3    ! This program sets the initial and boundary values.    ! This program sets the initial and boundary values.
4    
   use comconst, only: initialize  
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
10    use limit_mod, only: limit    use limit_mod, only: limit
11      use serre, only: read_serre
12      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 initialize    call new_unit(unit_nml)
21      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)
28    
29  END PROGRAM etat0_lim  END PROGRAM ce0l
Legend:
Removed from v.3  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21