Changeset 482 for trunk/NEMO/OFF_SRC
- Timestamp:
- 2006-06-19T16:29:26+02:00 (18 years ago)
- Location:
- trunk/NEMO/OFF_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/mppini.F90
r354 r482 14 14 USE dom_oce ! ocean space and time domain 15 15 USE in_out_manager ! I/O Manager 16 USE sol_oce ! ocean elliptic solver 16 17 USE lib_mpp ! distribued memory computing library 17 18 USE ioipsl -
trunk/NEMO/OFF_SRC/opa.F90
r343 r482 92 92 ENDIF 93 93 94 ! Nodes selection95 narea = mynode()96 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 )97 lwp = narea == 198 99 94 OPEN( UNIT=numnam, FILE='namelist', FORM='FORMATTED', STATUS='OLD' ) 100 95 … … 107 102 WRITE(numout,*) 108 103 ENDIF 104 105 ! Nodes selection 106 narea = mynode() 107 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 108 lwp = narea == 1 109 109 110 110 ! ! ============================== !
Note: See TracChangeset
for help on using the changeset viewer.