New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC – NEMO

Ignore:
Timestamp:
2019-10-21T09:34:11+02:00 (5 years ago)
Author:
marc
Message:

The Dr Hook changes from my perl code.

Location:
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90

    r6486 r11738  
    2929   USE lib_mpp        ! MPP library 
    3030 
     31   USE yomhook, ONLY: lhook, dr_hook 
     32   USE parkind1, ONLY: jprb, jpim 
     33 
    3134   IMPLICIT NONE 
    3235   PRIVATE 
    … …  
    7477      !!---------------------------------------------------------------------- 
    7578      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     79      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     80      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     81      REAL(KIND=jprb)               :: zhook_handle 
     82 
     83      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_DIV' 
     84 
     85      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     86 
    7687      !!---------------------------------------------------------------------- 
    7788      !      
    … …  
    97108!!gm      CALL lbc_lnk( hdivn, 'T', 1. )                    ! Lateral boundary conditions on hdivn 
    98109      ! 
     110      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    99111   END SUBROUTINE cla_div 
    100112    
    … …  
    114126      !!---------------------------------------------------------------------- 
    115127      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
     128      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     129      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     130      REAL(KIND=jprb)               :: zhook_handle 
     131 
     132      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_TRAADV' 
     133 
     134      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     135 
    116136      !!---------------------------------------------------------------------- 
    117137      ! 
    … …  
    126146      IF( nhor == 1    )   CALL cla_hormuz       ('tra')      ! Hormuz Strait ( Persian Gulf) 
    127147      ! 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    128149   END SUBROUTINE cla_traadv 
    129150 
    … …  
    141162      !!---------------------------------------------------------------------- 
    142163      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
     164      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     166      REAL(KIND=jprb)               :: zhook_handle 
     167 
     168      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_DYNSPG' 
     169 
     170      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     171 
    143172      !!---------------------------------------------------------------------- 
    144173      ! 
    … …  
    156185!!gm      CALL lbc_lnk( hdivn, 'U', -1. )   ;   CALL lbc_lnk( hdivn, 'V', -1. )      ! Lateral boundary conditions  
    157186      ! 
     187      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    158188   END SUBROUTINE cla_dynspg 
    159189 
    … …  
    176206      REAL(wp) ::   ztemp   ! local scalar 
    177207      INTEGER  ::   ierr    ! local integer 
     208      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     209      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     210      REAL(KIND=jprb)               :: zhook_handle 
     211 
     212      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_INIT' 
     213 
     214      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     215 
    178216      !!--------------------------------------------------------------------- 
    179217      ! 
    … …  
    258296      ENDIF 
    259297      ! 
     298      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    260299   END SUBROUTINE cla_init 
    261300 
    … …  
    296335      REAL(wp) ::   zemp_red     ! temporary scalar 
    297336      REAL(wp) ::   zio_flow, zrecirc_upp, zrecirc_mid, zrecirc_bot 
     337      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     338      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     339      REAL(KIND=jprb)               :: zhook_handle 
     340 
     341      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_BAB_EL_MANDEB' 
     342 
     343      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     344 
    298345      !!--------------------------------------------------------------------- 
    299346      ! 
    … …  
    437484      END SELECT 
    438485      ! 
     486      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    439487   END SUBROUTINE cla_bab_el_mandeb 
    440488    
    … …  
    470518      REAL(wp) ::   zemp_med     ! temporary scalar 
    471519      REAL(wp) ::   zio_flow, zrecirc_upp, zrecirc_mid, zrecirc_bot 
     520      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     521      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     522      REAL(KIND=jprb)               :: zhook_handle 
     523 
     524      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_GIBRALTAR' 
     525 
     526      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     527 
    472528      !!--------------------------------------------------------------------- 
    473529      ! 
    … …  
    633689      END SELECT 
    634690      ! 
     691      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    635692   END SUBROUTINE cla_gibraltar 
    636693 
    … …  
    659716      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    660717      REAL(wp) ::   zio_flow     ! temporary scalar 
     718      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     719      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     720      REAL(KIND=jprb)               :: zhook_handle 
     721 
     722      CHARACTER(LEN=*), PARAMETER :: RoutineName='CLA_HORMUZ' 
     723 
     724      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     725 
    661726      !!--------------------------------------------------------------------- 
    662727      ! 
    … …  
    727792      END SELECT 
    728793      ! 
     794      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    729795   END SUBROUTINE cla_hormuz 
    730796    

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90

    r7993 r11738  
    7070   USE lbcnfd          ! north fold 
    7171 
     72   USE yomhook, ONLY: lhook, dr_hook 
     73   USE parkind1, ONLY: jprb, jpim 
     74 
    7275   IMPLICIT NONE 
    7376   PRIVATE 
    … …  
    127130      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pt3d1   , pt3d2      ! 3D array on which the lbc is applied 
    128131      REAL(wp)                        , INTENT(in   ) ::   psgn                 ! control of the sign  
     132      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     133      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     134      REAL(KIND=jprb)               :: zhook_handle 
     135 
     136      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D_GATHER' 
     137 
     138      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     139 
    129140      !!---------------------------------------------------------------------- 
    130141      ! 
    … …  
    132143      CALL lbc_lnk_3d( pt3d2, cd_type2, psgn) 
    133144      ! 
     145      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    134146   END SUBROUTINE lbc_lnk_3d_gather 
    135147 
    … …  
    151163      INTEGER  ::   jk     ! dummy loop index 
    152164      REAL(wp) ::   ztab   ! local scalar 
     165      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     166      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     167      REAL(KIND=jprb)               :: zhook_handle 
     168 
     169      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D' 
     170 
     171      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     172 
    153173      !!---------------------------------------------------------------------- 
    154174      ! 
    … …  
    158178      END DO 
    159179      ! 
     180      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    160181   END SUBROUTINE lbc_lnk_3d 
    161182 
    … …  
    176197      ! 
    177198      REAL(wp) ::   ztab   ! local scalar 
     199      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     200      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     201      REAL(KIND=jprb)               :: zhook_handle 
     202 
     203      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D' 
     204 
     205      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     206 
    178207      !!---------------------------------------------------------------------- 
    179208      ! 
    … …  
    181210      pt2d(:,:) = ztab 
    182211      ! 
     212      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    183213   END SUBROUTINE lbc_lnk_2d 
    184214    
    … …  
    193223      ! 
    194224      INTEGER  ::   ii    !!MULTI SEND DUMMY LOOP INDICES 
     225      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     226      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     227      REAL(KIND=jprb)               :: zhook_handle 
     228 
     229      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_MULTIPLE' 
     230 
     231      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     232 
    195233      ! 
    196234      DO ii = 1, num_fields 
    … …  
    198236      END DO      
    199237      ! 
     238      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    200239   END SUBROUTINE lbc_lnk_2d_multiple 
    201240 
    … …  
    218257      CHARACTER(len=3)                    , OPTIONAL, INTENT(in   ) ::   cd_mpp   ! fill the overlap area only 
    219258      REAL(wp)                            , OPTIONAL, INTENT(in   ) ::   pval     ! background value (used at closed boundaries) 
     259      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     260      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     261      REAL(KIND=jprb)               :: zhook_handle 
     262 
     263      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_9' 
     264 
     265      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     266 
    220267      !! 
    221268      !!--------------------------------------------------------------------- 
    … …  
    234281      IF(PRESENT (psgnI) )CALL lbc_lnk( pt2dI, cd_typeI, psgnI )  
    235282 
     283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    236284   END SUBROUTINE lbc_lnk_2d_9 
    237285 
    … …  
    260308      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pt3d1   , pt3d2      ! 3D array on which the lbc is applied 
    261309      REAL(wp)                        , INTENT(in   ) ::   psgn                 ! control of the sign  
     310      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     311      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     312      REAL(KIND=jprb)               :: zhook_handle 
     313 
     314      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D_GATHER' 
     315 
     316      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     317 
    262318      !!---------------------------------------------------------------------- 
    263319      ! 
    … …  
    265321      CALL lbc_lnk_3d( pt3d2, cd_type2, psgn) 
    266322      ! 
     323      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    267324   END SUBROUTINE lbc_lnk_3d_gather 
    268325 
    … …  
    287344      !! 
    288345      REAL(wp) ::   zland 
     346      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     347      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     348      REAL(KIND=jprb)               :: zhook_handle 
     349 
     350      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_3D' 
     351 
     352      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     353 
    289354      !!---------------------------------------------------------------------- 
    290355 
    … …  
    353418      ENDIF 
    354419      ! 
     420      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    355421   END SUBROUTINE lbc_lnk_3d 
    356422 
    … …  
    374440      !! 
    375441      REAL(wp) ::   zland 
     442      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     443      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     444      REAL(KIND=jprb)               :: zhook_handle 
     445 
     446      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D' 
     447 
     448      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     449 
    376450      !!---------------------------------------------------------------------- 
    377451 
    … …  
    439513      ENDIF 
    440514      !     
     515      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    441516   END SUBROUTINE lbc_lnk_2d 
    442517    
    … …  
    451526      ! 
    452527      INTEGER  ::   ii    !!MULTI SEND DUMMY LOOP INDICES 
     528      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     529      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     530      REAL(KIND=jprb)               :: zhook_handle 
     531 
     532      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_MULTIPLE' 
     533 
     534      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     535 
    453536      ! 
    454537      DO ii = 1, num_fields 
    … …  
    456539      END DO      
    457540      ! 
     541      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    458542   END SUBROUTINE lbc_lnk_2d_multiple 
    459543 
    … …  
    476560      CHARACTER(len=3)                    , OPTIONAL, INTENT(in   ) ::   cd_mpp   ! fill the overlap area only 
    477561      REAL(wp)                            , OPTIONAL, INTENT(in   ) ::   pval     ! background value (used at closed boundaries) 
     562      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     563      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     564      REAL(KIND=jprb)               :: zhook_handle 
     565 
     566      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_9' 
     567 
     568      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     569 
    478570      !! 
    479571      !!--------------------------------------------------------------------- 
    … …  
    492584      IF(PRESENT (psgnI) )CALL lbc_lnk( pt2dI, cd_typeI, psgnI )  
    493585 
     586      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    494587   END SUBROUTINE lbc_lnk_2d_9 
    495588 
    … …  
    511604      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    512605      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     606      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     607      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     608      REAL(KIND=jprb)               :: zhook_handle 
     609 
     610      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_BDY_LNK_3D' 
     611 
     612      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     613 
    513614      !! 
    514615      CALL lbc_lnk_3d( pt3d, cd_type, psgn) 
    515616 
     617      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    516618   END SUBROUTINE lbc_bdy_lnk_3d 
    517619 
    … …  
    529631      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    530632      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     633      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     634      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     635      REAL(KIND=jprb)               :: zhook_handle 
     636 
     637      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_BDY_LNK_2D' 
     638 
     639      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     640 
    531641      !! 
    532642      CALL lbc_lnk_2d( pt2d, cd_type, psgn) 
    533643 
     644      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    534645   END SUBROUTINE lbc_bdy_lnk_2d 
    535646 
    … …  
    553664      INTEGER                     , INTENT(in   )           ::   jpri      ! size of extra halo (not needed in non-mpp) 
    554665      INTEGER                     , INTENT(in   )           ::   jprj      ! size of extra halo (not needed in non-mpp) 
     666      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     667      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     668      REAL(KIND=jprb)               :: zhook_handle 
     669 
     670      CHARACTER(LEN=*), PARAMETER :: RoutineName='LBC_LNK_2D_E' 
     671 
     672      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     673 
    555674      !!---------------------------------------------------------------------- 
    556675 
    557676      CALL lbc_lnk_2d( pt2d, cd_type, psgn ) 
    558677      !     
     678      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    559679   END SUBROUTINE lbc_lnk_2d_e 
    560680 

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8356 r11738  
    6565   USE wrk_nemo       ! work arrays 
    6666 
     67   USE yomhook, ONLY: lhook, dr_hook 
     68   USE parkind1, ONLY: jprb, jpim 
     69 
    6770   IMPLICIT NONE 
    6871   PRIVATE 
    … …  
    365368      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ns, zt3sn   ! 3d for north-south & south-north 
    366369      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ew, zt3we   ! 3d for east-west & west-east 
     370      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     371      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     372      REAL(KIND=jprb)               :: zhook_handle 
     373 
     374      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_3D' 
     375 
     376      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     377 
    367378 
    368379      !!---------------------------------------------------------------------- 
    … …  
    532543      DEALLOCATE( zt3ns, zt3sn, zt3ew, zt3we ) 
    533544      ! 
     545      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    534546   END SUBROUTINE mpp_lnk_3d 
    535547 
    … …  
    857869      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ns, zt2sn   ! 2d for north-south & south-north 
    858870      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ew, zt2we   ! 2d for east-west & west-east 
     871      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     872      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     873      REAL(KIND=jprb)               :: zhook_handle 
     874 
     875      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_2D' 
     876 
     877      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     878 
    859879 
    860880      !!---------------------------------------------------------------------- 
    … …  
    10231043      DEALLOCATE( zt2ns, zt2sn, zt2ew, zt2we ) 
    10241044      ! 
     1045      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    10251046   END SUBROUTINE mpp_lnk_2d 
    10261047 
    … …  
    10601081      REAL(wp), DIMENSION(:,:,:,:,:), ALLOCATABLE ::   zt4ns, zt4sn   ! 2 x 3d for north-south & south-north 
    10611082      REAL(wp), DIMENSION(:,:,:,:,:), ALLOCATABLE ::   zt4ew, zt4we   ! 2 x 3d for east-west & west-east 
     1083      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     1084      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     1085      REAL(KIND=jprb)               :: zhook_handle 
     1086 
     1087      CHARACTER(LEN=*), PARAMETER :: RoutineName='MPP_LNK_3D_GATHER' 
     1088 
     1089      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     1090 
    10621091 
    10631092      !!---------------------------------------------------------------------- 
    … …  
    12261255      DEALLOCATE( zt4ns, zt4sn, zt4ew, zt4we ) 
    12271256      ! 
     1257      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    12281258   END SUBROUTINE mpp_lnk_3d_gather 
    12291259 
Note: See TracChangeset for help on using the changeset viewer.