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

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

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

revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 49  contains Line 49  contains
49      ! Version du 29/04/97      ! Version du 29/04/97
50    
51      use abort_gcm_m, only: abort_gcm      use abort_gcm_m, only: abort_gcm
     use comdissnew, only: read_comdissnew  
52      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
53    
54      namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, &      namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, &
# Line 71  contains Line 70  contains
70      read(unit=*, nml=logic_nml)      read(unit=*, nml=logic_nml)
71      write(unit_nml, nml=logic_nml)      write(unit_nml, nml=logic_nml)
72    
     call read_comdissnew  
   
73      print *, "Enter namelist 'conf_gcm_nml'."      print *, "Enter namelist 'conf_gcm_nml'."
74      read(unit=*, nml=conf_gcm_nml)      read(unit=*, nml=conf_gcm_nml)
75      write(unit_nml, nml=conf_gcm_nml)      write(unit_nml, nml=conf_gcm_nml)
76    
77      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &      IF (MOD(day_step, iperiod) /= 0) call abort_gcm("conf_gcm", &
78           message = &           'Il faut choisir un nombre de pas par jour multiple de "iperiod".')
79           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &  
80           ierr = 1)      IF (MOD(day_step, iphysiq)/= 0) call abort_gcm("conf_gcm", &
81             'Il faut choisir un nombre de pas par jour multiple de "iphysiq".')
     IF (MOD(day_step, iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &  
          message = &  
          'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &  
          ierr = 1)  
82    
83    END SUBROUTINE conf_gcm    END SUBROUTINE conf_gcm
84    
Legend:
Removed from v.154  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21