/[lmdze]/trunk/dyn3d/adaptdt.f
ViewVC logotype

Diff of /trunk/dyn3d/adaptdt.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 2  Line 2 
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/adaptdt.F,v 1.1.1.1 2004/05/19  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/adaptdt.F,v 1.1.1.1 2004/05/19
3  ! 12:53:05 lmdzadmin Exp $  ! 12:53:05 lmdzadmin Exp $
4    
5  SUBROUTINE adaptdt(nadv, dtbon, n, pbaru, masse)  SUBROUTINE adaptdt(dtbon, n, pbaru, masse)
6    
7    USE dimens_m    USE dimens_m
8    USE paramet_m    USE paramet_m
# Line 12  SUBROUTINE adaptdt(nadv, dtbon, n, pbaru Line 12  SUBROUTINE adaptdt(nadv, dtbon, n, pbaru
12    USE conf_gcm_m    USE conf_gcm_m
13    USE comgeom    USE comgeom
14    USE temps    USE temps
   USE ener  
15    IMPLICIT NONE    IMPLICIT NONE
16    
17    
18    ! ----------------------------------------------------------    ! ----------------------------------------------------------
19    ! Arguments    ! Arguments
20    ! ----------------------------------------------------------    ! ----------------------------------------------------------
21    INTEGER n, nadv    INTEGER n
22    REAL dtbon    REAL dtbon
23    REAL, INTENT (IN) :: pbaru(iip1, jjp1, llm)    REAL, INTENT (IN) :: pbaru(iip1, jjp1, llm)
24    REAL masse(iip1, jjp1, llm)    REAL masse(iip1, jjp1, llm)
# Line 41  SUBROUTINE adaptdt(nadv, dtbon, n, pbaru Line 40  SUBROUTINE adaptdt(nadv, dtbon, n, pbaru
40      END DO      END DO
41    END DO    END DO
42    n = int(cflmax) + 1    n = int(cflmax) + 1
   ! pour reproduire cas VL du code qui appele x,y,z,y,x  
   ! if (nadv.eq.30) n=n/2   ! Pour Prather  
43    dtbon = dtvr/n    dtbon = dtvr/n
44    
45    RETURN    RETURN
Legend:
Removed from v.82  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21