Changeset 1579 for trunk/NEMO/OPA_SRC/opa.F90
- Timestamp:
- 2009-08-05T12:14:11+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/opa.F90
r1493 r1579 179 179 INTEGER :: localComm 180 180 #endif 181 CHARACTER (len=20) :: namelistname 182 CHARACTER (len=28) :: file_out 181 CHARACTER(len=20) :: namelistname 182 CHARACTER(len=28) :: file_out 183 CHARACTER(len=80),dimension(10) :: cltxt 184 INTEGER :: ji ! local loop indicees 183 185 NAMELIST/namctl/ ln_ctl, nprint, nictls, nictle, & 184 186 & isplt , jsplt , njctls, njctle, nbench, nbit_cmp … … 187 189 ! Initializations 188 190 ! =============== 189 191 cltxt(:) = '' 190 192 file_out = 'ocean.output' 193 namelistname = 'namelist' 191 194 192 ! open listing and namelist units193 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', &194 & 'SEQUENTIAL', 1, 6, .FALSE., 1 )195 196 WRITE(numout,*)197 WRITE(numout,*) ' L O D Y C - I P S L'198 WRITE(numout,*) ' O P A model'199 WRITE(numout,*) ' Ocean General Circulation Model'200 WRITE(numout,*) ' version OPA 9.0 (2005) '201 WRITE(numout,*)202 WRITE(numout,*)203 204 namelistname = 'namelist'205 CALL ctlopn( numnam, namelistname, 'OLD', 'FORMATTED', 'SEQUENTIAL', &206 & 1, numout, .FALSE., 1 )207 208 195 ! Namelist namctl : Control prints & Benchmark 209 REWIND( numnam ) 196 CALL ctlopn( numnam, namelistname, 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., 1 ) 197 REWIND( numnam ) ! is this really needed? we just open the file... 210 198 READ ( numnam, namctl ) 211 199 … … 221 209 # endif 222 210 ! Nodes selection 223 narea = mynode( localComm )211 narea = mynode( cltxt, localComm ) 224 212 #else 225 213 # if defined key_oasis3 || defined key_oasis4 … … 227 215 CALL cpl_prism_init( localComm ) 228 216 ! Nodes selection 229 narea = mynode( localComm )217 narea = mynode( cltxt, localComm ) 230 218 # else 231 219 ! Nodes selection 232 narea = mynode( )220 narea = mynode( cltxt ) 233 221 # endif 234 222 #endif 235 223 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 236 lwp = narea == 1 237 238 ! open additionnal listing 239 IF( l n_ctl )THEN240 IF( narea-1 > 0 ) THEN241 WRITE(file_out,FMT="('ocean.output_',I4.4)")narea-1242 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', &243 & 'SEQUENTIAL', 1, numout, .FALSE., 1 )244 lwp = .TRUE.245 !246 WRITE(numout,*)247 WRITE(numout,*) ' L O D Y C - I P S L'248 WRITE(numout,*) ' O P A model'249 WRITE(numout,*) ' Ocean General Circulation Model'250 WRITE(numout,*) ' version OPA 9.0 (2005) '251 WRITE(numout,*) ' MPI Ocean output '252 WRITE(numout,*)253 WRITE(numout,*)254 ENDIF 224 225 lwp = narea == 1 .OR. ln_ctl ! print control 226 227 IF( lwp ) THEN 228 ! open listing and namelist units 229 IF( narea > 1 ) WRITE(file_out, "(a,'_',i4.4)") TRIM(file_out), narea-1 230 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., 1 ) 231 232 WRITE(numout,*) 233 WRITE(numout,*) ' L O D Y C - I P S L' 234 WRITE(numout,*) ' O P A model' 235 WRITE(numout,*) ' Ocean General Circulation Model' 236 WRITE(numout,*) ' version OPA 9.0 (2005) ' 237 WRITE(numout,*) 238 WRITE(numout,*) 239 DO ji = 1, SIZE(cltxt) 240 IF (TRIM(cltxt(ji)) /= '') WRITE(numout,*) cltxt(ji) 241 END DO 242 255 243 ENDIF 256 244
Note: See TracChangeset
for help on using the changeset viewer.