Skip to content
Snippets Groups Projects
Commit c1827af9 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 9/04/2013: add call to MPPDB_INIT to check GPU problems

parent e401b261
No related branches found
No related tags found
No related merge requests found
......@@ -92,6 +92,8 @@ USE MODI_VERSION
USE MODI_INIT_MNH
USE MODI_DEALLOC_SURFEX
!
USE MODE_MPPDB
!
IMPLICIT NONE
!
!* 0.1 declarations of local variables
......@@ -106,6 +108,8 @@ INTEGER :: IINFO_ll ! return code of // routines
!
!* 1. INITIALIZATION
! --------------
CALL MPPDB_INIT()
!
! Switch to model 1 variables
CALL GOTO_MODEL(1)
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment