Changeset 204 for LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F

Timestamp:

Apr 13, 2001, 12:44:53 PM (23 years ago)

Author:

lmdz

Message:

Debogage du guidage et de la version debranchee et abandon de la version
debranchee non-netcdf FH/MAF
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F (modified) (6 diffs)

LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F

@@ +1 @@
+c
 c $Header
+c
       subroutine read_reanalyse(timestep,u,v,t,masse,ps,mode)
 
@@ -14 +16 @@
       integer nlevnc
 cModef 11-2-99      parameter (nlevnc=15)
-      parameter (nlevnc=15)
+      parameter (nlevnc=21)
       integer timestep,mode,l
 
@@ -58 +60 @@
             varidt=NCVID(ncidt,'AIR',rcode)
             print*,'ncidt,varidt',ncidt,varidt
-            ncidps=NCOPN('ps.nc',NCNOWRIT,rcode)
-            varidps=NCVID(ncidps,'SP',rcode)
-            print*,'ncidps,varidps',ncidps,varidps
+c           ncidps=NCOPN('ps.nc',NCNOWRIT,rcode)
+c           varidps=NCVID(ncidps,'SP',rcode)
+c           print*,'ncidps,varidps',ncidps,varidps
       endif
 
@@ -106 +108 @@
       count(4)=0
 c  ps
-      status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnc)
+c     status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnc)
 c     call dump2d(iip1,jjp1,psnc,'PSNC COUCHE 1 ')
-      call correctbid(iim,jjp1,psnc)
+c     call correctbid(iim,jjp1,psnc)
 
 c   Transformations
@@ -187 +189 @@
 c -----------------------------------------------------------------
 
-      do j=1,jjp1
-         do i=1,iim
-            ps(i,j)=psnc(i,jjp1+1-j)
-         enddo
-         ps(iip1,j)=ps(1,j)
-      enddo
+c     do j=1,jjp1
+c        do i=1,iim
+c           ps(i,j)=psnc(i,jjp1+1-j)
+c        enddo
+c        ps(iip1,j)=ps(1,j)
+c     enddo
 
       CALL pression( ip1jmp1, ap, bp, ps, p )
@@ -200 +202 @@
       unskap=1./kappa
       prefkap =  preff  ** kappa
-      PRINT *,' Pref kappa unskap  ',preff,kappa,unskap
+c     PRINT *,' Pref kappa unskap  ',preff,kappa,unskap
       DO l = 1, llm
        DO j=1,jjp1