/[lmdze]/trunk/Sources/dyn3d/Guide/Read_reanalyse/nat2gcm.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Guide/Read_reanalyse/nat2gcm.f

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

trunk/libf/dyn3d/Read_reanalyse/nat2gcm.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC trunk/dyn3d/Guide/Read_reanalyse/nat2gcm.f revision 114 by guez, Fri Sep 19 11:41:35 2014 UTC
# Line 15  Line 15 
15    
16        real u(iip1,jjp1,llm),v(iip1,jjm,llm)        real u(iip1,jjp1,llm),v(iip1,jjm,llm)
17        real t(iip1,jjp1,llm),pk(iip1,jjp1,llm),rh(iip1,jjp1,llm)        real t(iip1,jjp1,llm),pk(iip1,jjp1,llm),rh(iip1,jjp1,llm)
       real ps(iip1,jjp1)  
   
18        real ucov(iip1,jjp1,llm),vcov(iip1,jjm,llm)        real ucov(iip1,jjp1,llm),vcov(iip1,jjm,llm)
19        real teta(iip1,jjp1,llm),q(iip1,jjp1,llm)        real teta(iip1,jjp1,llm),q(iip1,jjp1,llm)
20    
# Line 65  Line 63 
63           enddo           enddo
64        enddo        enddo
65    
 !     call dump2d(iip1,jjp1,teta,'TETA EN BAS   ')  
 !     call dump2d(iip1,jjp1,teta(1,1,llm),'TETA EN HAUT   ')  
   
66  !  Humidite relative -> specifique  !  Humidite relative -> specifique
67  !  -------------------------------  !  -------------------------------
68        if (1.eq.0) then        if (1.eq.0) then
# Line 84  Line 79 
79        q(:,:,:)=qsat(:,:,:)*rh(:,:,:)        q(:,:,:)=qsat(:,:,:)*rh(:,:,:)
80        print*,'calcul de q OK'        print*,'calcul de q OK'
81    
       call dump2d(iip1,jjp1,pres,'PRESSION PREMIERE COUCHE   ')  
       call dump2d(iip1,jjp1,q,'HUMIDITE SPECIFIQUE COUCHE 1   ')  
82        endif        endif
83    
84    
Legend:
Removed from v.66  
changed lines
  Added in v.114
  ViewVC Help
Powered by ViewVC 1.1.21