Subversion Repositories lagranto.um

Rev

Rev 16 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 17
Line 476... Line 476...
476
476
477 
          call putdat(cdfid,'Z',time(n),0,var,ierr)
 477 
          call putdat(cdfid,'Z',time(n),0,var,ierr)
478 
        endif
 478 
        endif
479 
 
 479 
 
480 
C       Calculation of the theta gradient
 480 
C       Calculation of the theta gradient
481
481 
 
482 
        if (mode.eq.11) then
 482 
        if (mode.eq.11) then
483
483
484 
          call pottemp(th,tt,sp,nx,ny,nz,ak,bk)
 484 
          call pottemp(th,tt,sp,nx,ny,nz,ak,bk)
485 
          call gradth(var,th,sp,prelev,cl,nx,ny,nz,ak,bk,varmin,varmax)
 485 
          call gradth(var,th,sp,prelev,cl,nx,ny,nz,ak,bk,varmin,varmax)
486
486