/[lmdze]/trunk/dyn3d/Dissipation/inidissip.f
ViewVC logotype

Diff of /trunk/dyn3d/Dissipation/inidissip.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 15  c   ------------- Line 15  c   -------------
15        use comconst        use comconst
16        use comvert        use comvert
17        use conf_gcm_m        use conf_gcm_m
18                use comdissipn
19        IMPLICIT NONE        IMPLICIT NONE
       include "comdissipn.h"  
20    
21        LOGICAL lstardis        LOGICAL lstardis
22        INTEGER nitergdiv,nitergrot,niterh        INTEGER nitergdiv,nitergrot,niterh
# Line 203  c Line 203  c
203    
204        PRINT *,' INIDI tetamin dtvr ',tetamin,dtvr,iperiod        PRINT *,' INIDI tetamin dtvr ',tetamin,dtvr,iperiod
205        idissip = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod        idissip = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod
206        PRINT *,' INIDI tetamin idissip ',tetamin,idissip        PRINT *,' tetamin = ',tetamin
207        idissip = MAX(iperiod,idissip)        idissip = MAX(iperiod,idissip)
208        dtdiss  = idissip * dtvr        dtdiss  = idissip * dtvr
209        PRINT *,' INIDI idissip dtdiss ',idissip,dtdiss        PRINT *,' INIDI idissip dtdiss ',idissip,dtdiss
Legend:
Removed from v.3  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21