Parent Directory
| 
Revision Log
| 
Revision Graph
Added in allocation of different models to different CPU sets etc..
| 1 | cnh | 1.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 |