Ignore:
Timestamp:
2011-09-15T08:41:58+02:00 (9 years ago)
Author:
cbricaud
Message:

modified routine for netcdf output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90

    r2528 r2839  
    5252      !! 
    5353      INTEGER ::  jfl, jind           ! dummy loop indices 
    54       REAL(wp), DIMENSION(jpnfl)   ::   zgifl , zgjfl , zgkfl    ! index RK  positions 
    55       REAL(wp), DIMENSION(jpnfl)   ::   zufl  , zvfl  , zwfl     ! interpolated velocity at the float position  
    56       REAL(wp), DIMENSION(jpnfl,4) ::   zrkxfl, zrkyfl, zrkzfl   ! RK coefficients 
     54      REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   zgifl , zgjfl , zgkfl    ! index RK  positions 
     55      REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   zufl  , zvfl  , zwfl     ! interpolated velocity at the float position  
     56      REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zrkxfl, zrkyfl, zrkzfl   ! RK coefficients 
    5757      !!--------------------------------------------------------------------- 
     58 
     59      ALLOCATE (  zgifl(jpnfl)  ,  zgjfl(jpnfl)  ,  zgkfl(jpnfl)   ) 
     60      ALLOCATE (   zufl(jpnfl)  ,   zvfl(jpnfl)  ,   zwfl(jpnfl)   )          
     61      ALLOCATE ( zrkxfl(jpnfl,4), zrkyfl(jpnfl,4), zrkzfl(jpnfl,4) ) 
    5862     
    5963      IF( kt == nit000 ) THEN 
     
    145149         END DO 
    146150      END DO 
     151      ! 
     152      DEALLOCATE( zgifl  , zgjfl  , zgkfl  ) 
     153      DEALLOCATE( zufl   , zvfl   , zwfl   ) 
     154      DEALLOCATE( zrkxfl , zrkyfl , zrkzfl ) 
    147155      ! 
    148156   END SUBROUTINE flo_4rk 
Note: See TracChangeset for help on using the changeset viewer.