Parent Directory
| 
Revision Log
| 
Revision Graph
Added in allocation of different models to different CPU sets etc..
| 1 | SUBROUTINE EEsmfAllocCplC( compListPtr, nComp ) |
| 2 | ! Allocate the components |
| 3 | ! Routine arguments |
| 4 | TYPE( EEsmfCplComp ), POINTER :: compListPtr(:) |
| 5 | INTEGER :: nComp |
| 6 | |
| 7 | ALLOCATE( compListPtr(nComp) ) |
| 8 | IF ( nComp .GT. 1 ) THEN |
| 9 | PRINT *, ' Allocated ', nComp, ' coupler components.' |
| 10 | ELSE |
| 11 | PRINT *, ' Allocated ', nComp, ' coupler component.' |
| 12 | ENDIF |
| 13 | |
| 14 | END SUBROUTINE EEsmfAllocCplC |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |