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

Diff of /trunk/dyn3d/ce0l.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 107 by guez, Thu Sep 11 15:09:15 2014 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 unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml
12    
13    implicit none    implicit none
14    
15      REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
16    
17    !-------------------------------------    !-------------------------------------
18    
19    call new_unit(unit_nml)    call new_unit(unit_nml)
20    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
21    CALL conf_gcm    CALL conf_gcm
22    CALL etat0    CALL etat0(phis)
23    CALL limit    CALL limit
24      CALL grilles_gcm_netcdf_sub(phis)
25    close(unit_nml)    close(unit_nml)
26    
27  END PROGRAM ce0l  END PROGRAM ce0l
Legend:
Removed from v.82  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21