Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
- Timestamp:
- 2019-10-21T09:34:11+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
r10045 r11738 32 32 33 33 34 USE yomhook, ONLY: lhook, dr_hook 35 USE parkind1, ONLY: jprb, jpim 36 34 37 IMPLICIT NONE 35 38 PRIVATE … … 77 80 !! AXY (04/11/13): add in temporary variables for checks 78 81 REAL(wp) :: fq0, fq1, fq2 82 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 83 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 84 REAL(KIND=jprb) :: zhook_handle 85 86 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA' 87 88 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 89 79 90 80 91 IF(lwp) WRITE(numout,*) … … 341 352 ENDIF 342 353 354 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 343 355 END SUBROUTINE trc_ini_medusa 344 356 … … 362 374 !! * arguments 363 375 INTEGER, INTENT( in ) :: kt ! ocean time step 376 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 377 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 378 REAL(KIND=jprb) :: zhook_handle 379 380 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CCD' 381 382 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 383 364 384 365 385 !!--------------------------------------------------------------------- … … 396 416 ENDIF 397 417 418 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 398 419 END SUBROUTINE trc_ini_medusa_ccd 399 420 … … 417 438 !! * arguments 418 439 INTEGER, INTENT( in ) :: kt ! ocean time step 440 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 441 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 442 REAL(KIND=jprb) :: zhook_handle 443 444 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_RIVER' 445 446 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 447 419 448 420 449 !!--------------------------------------------------------------------- … … 494 523 IF(lwp) CALL flush(numout) 495 524 525 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 496 526 END SUBROUTINE trc_ini_medusa_river 497 527 … … 508 538 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: zyy !: xCO2 record years 509 539 CHARACTER (len=10), PARAMETER :: clname = 'xco2.atm' !! atm CO2 record file 540 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 541 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 542 REAL(KIND=jprb) :: zhook_handle 543 544 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA_CO2ATM' 545 546 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 547 510 548 !!---------------------------------------------------------------------- 511 549 … … 534 572 CALL ctl_stop('trc_ini_medusa_co2atm: & 535 573 & Error on the 1st reading of xco2.atm') 574 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 536 575 RETURN 537 576 ENDIF … … 543 582 IF( ierr > 0 ) THEN 544 583 CALL ctl_stop( 'trc_ini_medusa_co2atm: unable to allocate array' ) 584 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 545 585 RETURN 546 586 ENDIF … … 560 600 CALL ctl_stop('trc_ini_medusa_co2atm: & 561 601 & Error on the 2nd reading of xco2.atm') 602 IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 562 603 RETURN 563 604 ENDIF … … 577 618 ENDIF 578 619 620 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 579 621 END SUBROUTINE trc_ini_medusa_co2atm 580 622 … … 586 628 CONTAINS 587 629 SUBROUTINE trc_ini_medusa ! Empty routine 630 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 631 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 632 REAL(KIND=jprb) :: zhook_handle 633 634 CHARACTER(LEN=*), PARAMETER :: RoutineName='TRC_INI_MEDUSA' 635 636 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 637 638 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 588 639 END SUBROUTINE trc_ini_medusa 589 640 #endif
Note: See TracChangeset
for help on using the changeset viewer.