/[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 170 by guez, Tue Jul 7 17:49:23 2015 UTC revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC
# Line 77  contains Line 77  contains
77      read(unit=*, nml=conf_gcm_nml)      read(unit=*, nml=conf_gcm_nml)
78      write(unit_nml, nml=conf_gcm_nml)      write(unit_nml, nml=conf_gcm_nml)
79    
80      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &      IF (MOD(day_step, iperiod) /= 0) call abort_gcm("conf_gcm", &
81           message = &           'Il faut choisir un nombre de pas par jour multiple de "iperiod".')
          'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &  
          ierr = 1)  
82    
83      IF (MOD(day_step, iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &      IF (MOD(day_step, iphysiq)/= 0) call abort_gcm("conf_gcm", &
84           message = &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".')
          'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &  
          ierr = 1)  
85    
86    END SUBROUTINE conf_gcm    END SUBROUTINE conf_gcm
87    
Legend:
Removed from v.170  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.21