/[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 156 by guez, Thu Jul 16 17:39:10 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 200  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.156  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21