/[lmdze]/trunk/dyn3d/gcm.f90
ViewVC logotype

Diff of /trunk/dyn3d/gcm.f90

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

revision 275 by guez, Thu Apr 19 17:54:55 2018 UTC revision 276 by guez, Thu Jul 12 14:49:20 2018 UTC
# Line 26  PROGRAM gcm Line 26  PROGRAM gcm
26    use inithist_m, only: inithist    use inithist_m, only: inithist
27    use init_dynzon_m, only: init_dynzon    use init_dynzon_m, only: init_dynzon
28    USE ioconf_calendar_m, only: ioconf_calendar    USE ioconf_calendar_m, only: ioconf_calendar
   use jumble, only: new_unit  
29    use leapfrog_m, only: leapfrog    use leapfrog_m, only: leapfrog
30    use netcdf95, only: nf95_close    use netcdf95, only: nf95_close
31    use suphec_m, only: suphec    use suphec_m, only: suphec
32    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml, set_unit_nml
33    use createnewfield_m, only: NbField, Ncid    use createnewfield_m, only: NbField, Ncid
34    
35    IMPLICIT NONE    IMPLICIT NONE
# Line 50  PROGRAM gcm Line 49  PROGRAM gcm
49    
50    !------------------------------------------------------------    !------------------------------------------------------------
51    
52    call new_unit(unit_nml)    call set_unit_nml
53    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
54    
55    CALL conf_gcm    CALL conf_gcm
Legend:
Removed from v.275  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.21