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

Go to the documentation of this file.
00001 SUBROUTINE GOTO_WRAPPER_SURFATM(KFROM,KTO, LKFROM)
00002 USE MODD_DATA_COVER_n
00003 USE MODD_CH_EMIS_FIELD_n
00004 USE MODD_CH_SNAP_n
00005 USE MODD_CH_SURF_n
00006 USE MODD_DIAG_SURF_ATM_n
00007 USE MODD_DUMMY_SURF_FIELDS_n
00008 USE MODD_EMIS_GR_FIELD_n
00009 USE MODD_SURF_ATM_GRID_n
00010 USE MODD_SURF_ATM_n
00011 USE MODD_SURF_ATM_SSO_n
00012 USE MODD_SV_n
00013 USE MODD_IO_BUFF_n
00014 USE MODD_SSO_CANOPY_n
00015 !
00016 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00017 USE PARKIND1  ,ONLY : JPRB
00018 !
00019 IMPLICIT NONE 
00020 LOGICAL, INTENT(IN) :: LKFROM
00021 INTEGER,INTENT(IN) :: KFROM,KTO
00022 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00023 !
00024 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_SURFATM',0,ZHOOK_HANDLE)
00025  CALL DATA_COVER_GOTO_MODEL(KFROM, KTO, LKFROM)
00026  CALL CH_EMIS_FIELD_GOTO_MODEL(KFROM, KTO, LKFROM)
00027  CALL CH_EMIS_SNAP_GOTO_MODEL(KFROM, KTO, LKFROM)
00028  CALL CH_SURF_GOTO_MODEL(KFROM, KTO, LKFROM)
00029  CALL DIAG_SURF_ATM_GOTO_MODEL(KFROM, KTO, LKFROM)
00030  CALL DUMMY_SURF_FIELDS_GOTO_MODEL(KFROM, KTO, LKFROM)
00031  CALL EMIS_GR_FIELD_GOTO_MODEL(KFROM, KTO, LKFROM)
00032  CALL SURF_ATM_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00033  CALL SURF_ATM_GOTO_MODEL(KFROM, KTO, LKFROM)
00034  CALL SURF_ATM_SSO_GOTO_MODEL(KFROM, KTO, LKFROM)
00035  CALL SV_GOTO_MODEL(KFROM, KTO, LKFROM)
00036  CALL IO_BUFF_GOTO_MODEL(KFROM, KTO, LKFROM)
00037  CALL SSO_CANOPY_GOTO_MODEL(KFROM, KTO, LKFROM)
00038 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_SURFATM',1,ZHOOK_HANDLE)
00039 !
00040 END SUBROUTINE GOTO_WRAPPER_SURFATM