/[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 98 by guez, Tue May 13 17:23:16 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 72  contains Line 72  contains
72    
73      use abort_gcm_m, only: abort_gcm      use abort_gcm_m, only: abort_gcm
74      use comdissnew, only: read_comdissnew      use comdissnew, only: read_comdissnew
75      use serre, only: clon, clat, grossismx, grossismy, alphax, alphay, &      use serre, only: read_serre
          dzoomx, dzoomy, taux, tauy  
76      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
77    
78      namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &      namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &
79           iperiod, iapp_tracvl, iconser, iecri, periodav, &           iperiod, iapp_tracvl, iconser, iecri, periodav, iphysiq, offline
          iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, &  
          tauy, offline  
80    
81      namelist /iniprint_nml/prt_level      namelist /iniprint_nml/prt_level
82    
# Line 113  contains Line 110  contains
110           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
111           ierr = 1)           ierr = 1)
112    
113      IF (grossismx < 1.) THEN      if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &
114         PRINT *, 'Error: grossismx < 1'           abort_gcm(modname = "conf_gcm", &
115         STOP 1           message = 'ok_guide day_step iperiod', ierr = 1)
116      ELSE  
117         alphax = 1. - 1. / grossismx      call read_serre
     ENDIF  
     IF (grossismy < 1.) THEN  
        PRINT *, 'Error: grossismy < 1'  
        STOP 1  
     ELSE  
        alphay = 1. - 1. / grossismy  
     ENDIF  
     PRINT *, 'alphax = ', alphax  
     PRINT *, 'alphay = ', alphay  
118    
119    END SUBROUTINE conf_gcm    END SUBROUTINE conf_gcm
120    
Legend:
Removed from v.98  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21