/[lmdze]/trunk/libf/dyn3d/bilan_dyn.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/bilan_dyn.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 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 178  c       initialisation des fichiers Line 178  c       initialisation des fichiers
178  c   ncum est la frequence de stokage en pas de temps  c   ncum est la frequence de stokage en pas de temps
179          ncum=dt_cum/dt_app          ncum=dt_cum/dt_app
180          if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then          if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then
181             WRITE(lunout,*)             print *,
182       .            'Pb : le pas de cumule doit etre multiple du pas'       .            'Pb : le pas de cumule doit etre multiple du pas'
183             WRITE(lunout,*)'dt_app=',dt_app             print *,'dt_app=',dt_app
184             WRITE(lunout,*)'dt_cum=',dt_cum             print *,'dt_cum=',dt_cum
185             stop             stop
186          endif          endif
187    
# Line 253  c      print*,'1HISTDEF' Line 253  c      print*,'1HISTDEF'
253        do iQ=1,nQ        do iQ=1,nQ
254           do itr=1,ntr           do itr=1,ntr
255        IF (prt_level > 5)        IF (prt_level > 5)
256       . WRITE(lunout,*)'var ',itr,iQ       . print *,'var ',itr,iQ
257       .      ,znom(itr,iQ),znoml(itr,iQ),zunites(itr,iQ)       .      ,znom(itr,iQ),znoml(itr,iQ),zunites(itr,iQ)
258              call histdef(fileid,znom(itr,iQ),znoml(itr,iQ),              call histdef(fileid,znom(itr,iQ),znoml(itr,iQ),
259       .        zunites(itr,iQ),1,jjm,thoriid,llm,1,llm,zvertiid,       .        zunites(itr,iQ),1,jjm,thoriid,llm,1,llm,zvertiid,
# Line 340  c Line 340  c
340        endif        endif
341    
342        IF (prt_level > 5)        IF (prt_level > 5)
343       . WRITE(lunout,*)'dans bilan_dyn ',icum,'->',icum+1       . print *,'dans bilan_dyn ',icum,'->',icum+1
344        icum=icum+1        icum=icum+1
345    
346  c   accumulation des flux de masse horizontaux  c   accumulation des flux de masse horizontaux
# Line 406  c   calcul de la vitesse verticale Line 406  c   calcul de la vitesse verticale
406           enddo           enddo
407        enddo        enddo
408        IF (prt_level > 5)        IF (prt_level > 5)
409       . WRITE(lunout,*)'Apres les calculs fait a chaque pas'       . print *,'Apres les calculs fait a chaque pas'
410  c=====================================================================  c=====================================================================
411  c   PAS DE TEMPS D'ECRITURE  c   PAS DE TEMPS D'ECRITURE
412  c=====================================================================  c=====================================================================
# Line 414  c======================================= Line 414  c=======================================
414  c=====================================================================  c=====================================================================
415    
416        IF (prt_level > 5)        IF (prt_level > 5)
417       . WRITE(lunout,*)'Pas d ecriture'       . print *,'Pas d ecriture'
418    
419  c   Normalisation  c   Normalisation
420        do iQ=1,nQ        do iQ=1,nQ
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21