SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/goto_wrapper

Go to the documentation of this file.

00001 SUBROUTINE GOTO_WRAPPER_OCEAN(KFROM,KTO, LKFROM)
00002 USE MODD_OCEAN_GRID_n
00003 USE MODD_OCEAN_n
00004 USE MODD_OCEAN_REL_n
00005 USE MODD_DIAG_OCEAN_n
00006 !
00007 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00008 USE PARKIND1  ,ONLY : JPRB
00009 !
00010 IMPLICIT NONE 
00011 LOGICAL, INTENT(IN) :: LKFROM
00012 INTEGER,INTENT(IN) :: KFROM,KTO
00013 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00014 !
00015 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_OCEAN',0,ZHOOK_HANDLE)
00016  CALL OCEAN_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00017  CALL OCEAN_GOTO_MODEL(KFROM, KTO, LKFROM)
00018  CALL OCEAN_REL_GOTO_MODEL(KFROM, KTO, LKFROM)
00019  CALL DIAG_OCEAN_GOTO_MODEL(KFROM, KTO, LKFROM)
00020 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_OCEAN',1,ZHOOK_HANDLE)
00021 !
00022 END SUBROUTINE GOTO_WRAPPER_OCEAN