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

Diff of /trunk/dyn3d/dynetat0.f

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 27  module dynetat0_m Line 27  module dynetat0_m
27    ! de la zone totale)    ! de la zone totale)
28    
29    real taux, tauy    real taux, tauy
30    ! raideur de la transition de l'int\'erieur à l'ext\'erieur du zoom    ! raideur de la transition de l'int\'erieur \`a l'ext\'erieur du zoom
31        
32    real rlatu(jjm + 1)    real rlatu(jjm + 1)
33    ! (latitudes of points of the "scalar" and "u" grid, in rad)    ! latitudes of points of the "scalar" and "u" grid, in rad
34    
35    real rlatv(jjm)    real rlatv(jjm)
36    ! (latitudes of points of the "v" grid, in rad, in decreasing order)    ! latitudes of points of the "v" grid, in rad, in decreasing order
37    
38    real rlonu(iim + 1) ! longitudes of points of the "u" grid, in rad    real rlonu(iim + 1) ! longitudes of points of the "u" grid, in rad
39    
40    real rlonv(iim + 1)    real rlonv(iim + 1)
41    ! (longitudes of points of the "scalar" and "v" grid, in rad)    ! longitudes of points of the "scalar" and "v" grid, in rad
42    
43    real xprimu(iim + 1), xprimv(iim + 1)    real xprimu(iim + 1), xprimv(iim + 1)
44    ! xprimu et xprimv sont respectivement les valeurs de dx / dX aux    ! 2 pi / iim * (derivative of the longitudinal zoom function)(rlon[uv])
   ! points u et v.  
45    
46    REAL xprimm025(iim + 1), xprimp025(iim + 1)    REAL xprimm025(iim + 1), xprimp025(iim + 1)
47    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)
# Line 201  contains Line 200  contains
200    
201      DO iq = 1, nqmx      DO iq = 1, nqmx
202         call NF95_INQ_VARID(ncid, tname(iq), varid, ierr)         call NF95_INQ_VARID(ncid, tname(iq), varid, ierr)
203         IF (ierr /= NF90_NOERR) THEN         IF (ierr == NF90_NOERR) THEN
204              call NF95_GET_VAR(ncid, varid, q(:, :, :, iq))
205           ELSE
206            PRINT *, 'dynetat0: "' // tname(iq) // '" not found, ' // &            PRINT *, 'dynetat0: "' // tname(iq) // '" not found, ' // &
207                 "setting it to zero..."                 "setting it to zero..."
208            q(:, :, :, iq) = 0.            q(:, :, :, iq) = 0.
        ELSE  
           call NF95_GET_VAR(ncid, varid, q(:, :, :, iq))  
209         ENDIF         ENDIF
210      ENDDO      ENDDO
211    
Legend:
Removed from v.139  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21