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

Diff of /trunk/dyn3d/limit.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 225 by guez, Mon Oct 16 12:35:41 2017 UTC
# Line 48  contains Line 48  contains
48      INTEGER imdep, jmdep, lmdep      INTEGER imdep, jmdep, lmdep
49    
50      REAL, ALLOCATABLE:: dlon(:), dlat(:)      REAL, ALLOCATABLE:: dlon(:), dlat(:)
51      REAL, pointer:: dlon_ini(:), dlat_ini(:), timeyear(:)      REAL, ALLOCATABLE:: dlon_ini(:), dlat_ini(:), timeyear(:)
52      REAL, ALLOCATABLE:: champ(:, :)      REAL, ALLOCATABLE:: champ(:, :)
53      REAL, ALLOCATABLE:: work(:, :)      REAL, ALLOCATABLE:: work(:, :)
54    
# Line 114  contains Line 114  contains
114    
115      call NF95_CLOSE(ncid)      call NF95_CLOSE(ncid)
116    
117      DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini)      DEALLOCATE(dlon, dlat, champ)
118      allocate(yder(lmdep))      allocate(yder(lmdep))
119    
120      ! Interpolate monthly values to daily values, at each horizontal position:      ! Interpolate monthly values to daily values, at each horizontal position:
# Line 128  contains Line 128  contains
128         ENDDO         ENDDO
129      ENDDO      ENDDO
130    
131      deallocate(timeyear, champtime, yder)      deallocate(champtime, yder)
132      champan(iim + 1, :, :) = champan(1, :, :)      champan(iim + 1, :, :) = champan(1, :, :)
133      forall (k = 1:360) phy_rug(:, k) = pack(champan(:, :, k), dyn_phy)      forall (k = 1:360) phy_rug(:, k) = pack(champan(:, :, k), dyn_phy)
134    
# Line 167  contains Line 167  contains
167    
168      call NF95_CLOSE(ncid)      call NF95_CLOSE(ncid)
169    
170      DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini)      DEALLOCATE(dlon, dlat, champ)
171      PRINT *, 'Interpolation temporelle'      PRINT *, 'Interpolation temporelle'
172      allocate(yder(lmdep))      allocate(yder(lmdep))
173    
# Line 271  contains Line 271  contains
271    
272      call NF95_CLOSE(ncid)      call NF95_CLOSE(ncid)
273    
274      DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini)      DEALLOCATE(dlon, dlat, champ)
275      allocate(yder(lmdep))      allocate(yder(lmdep))
276    
277      ! interpolation temporelle      ! interpolation temporelle
# Line 329  contains Line 329  contains
329    
330      call NF95_CLOSE(ncid)      call NF95_CLOSE(ncid)
331    
     deallocate(dlon_ini, dlat_ini)  
332      allocate(yder(lmdep))      allocate(yder(lmdep))
333    
334      ! interpolation temporelle      ! interpolation temporelle
# Line 342  contains Line 341  contains
341            ENDDO            ENDDO
342         ENDDO         ENDDO
343      ENDDO      ENDDO
     deallocate(timeyear)  
344    
345      champan(iim + 1, :, :) = champan(1, :, :)      champan(iim + 1, :, :) = champan(1, :, :)
346      forall (k = 1:360) phy_alb(:, k) = pack(champan(:, :, k), dyn_phy)      forall (k = 1:360) phy_alb(:, k) = pack(champan(:, :, k), dyn_phy)
Legend:
Removed from v.139  
changed lines
  Added in v.225
  ViewVC Help
Powered by ViewVC 1.1.21