Changeset 627 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2007-02-27T20:02:43+01:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/opa.F90
r624 r627 203 203 namelistname = 'namelist' 204 204 CALL ctlopn( numnam, namelistname, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 205 & 205 & 1, numout, .FALSE., 1 ) 206 206 207 207 ! Namelist namctl : Control prints & Benchmark … … 224 224 IF( narea-1 > 0 ) THEN 225 225 WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1 226 IF( numout /= 0 .AND. numout /= 6 ) THEN 227 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 228 & 'SEQUENTIAL', 1, numout, .FALSE., 1 ) 229 ENDIF 226 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 227 & 'SEQUENTIAL', 1, numout, .FALSE., 1 ) 230 228 lwp = .TRUE. 231 229 ! -
trunk/NEMO/OPA_SRC/prtctl.F90
r624 r627 138 138 DO jn = sind, eind 139 139 ! Set logical unit 140 j_id = jn - narea + 1140 j_id = numid(jn - narea + 1) 141 141 ! Set indices for the SUM control 142 142 IF( .NOT. lsp_area ) THEN … … 187 187 ! Print the result 188 188 IF( PRESENT(clinfo3) ) THEN 189 WRITE( numid(j_id),FMT='(a,D23.16,3x,a,D23.16)')clinfo1, zsum1-zvctl1, cl2, zsum2-zvctl2189 WRITE(j_id,FMT='(a,D23.16,3x,a,D23.16)')clinfo1, zsum1-zvctl1, cl2, zsum2-zvctl2 190 190 SELECT CASE( clinfo3 ) 191 191 CASE ( 'tra-ta' ) … … 199 199 END SELECT 200 200 ELSEIF ( PRESENT(clinfo2) .OR. PRESENT(tab2d_2) .OR. PRESENT(tab3d_2) ) THEN 201 WRITE( numid(j_id),FMT='(a,D23.16,3x,a,D23.16)')clinfo1, zsum1, cl2, zsum2201 WRITE(j_id,FMT='(a,D23.16,3x,a,D23.16)')clinfo1, zsum1, cl2, zsum2 202 202 ELSE 203 WRITE( numid(j_id),FMT='(a,D23.16)')clinfo1, zsum1203 WRITE(j_id,FMT='(a,D23.16)')clinfo1, zsum1 204 204 ENDIF 205 205 … … 259 259 260 260 ! Set logical unit 261 j_id = jn - narea +1261 j_id = numid(jn - narea + 1) 262 262 263 263 IF( PRESENT(ivar1) .AND. PRESENT(clinfo2) .AND. PRESENT(ivar2) ) THEN 264 WRITE( numid(j_id),*)clinfo1, ivar1, clinfo2, ivar2264 WRITE(j_id,*)clinfo1, ivar1, clinfo2, ivar2 265 265 ELSEIF ( PRESENT(ivar1) .AND. PRESENT(clinfo2) .AND. .NOT. PRESENT(ivar2) ) THEN 266 WRITE( numid(j_id),*)clinfo1, ivar1, clinfo2266 WRITE(j_id,*)clinfo1, ivar1, clinfo2 267 267 ELSEIF ( PRESENT(ivar1) .AND. .NOT. PRESENT(clinfo2) .AND. PRESENT(ivar2) ) THEN 268 WRITE( numid(jn-narea+1),*)clinfo1, ivar1, ivar2268 WRITE(j_id,*)clinfo1, ivar1, ivar2 269 269 ELSEIF ( PRESENT(ivar1) .AND. .NOT. PRESENT(clinfo2) .AND. .NOT. PRESENT(ivar2) ) THEN 270 WRITE( numid(j_id),*)clinfo1, ivar1270 WRITE(j_id,*)clinfo1, ivar1 271 271 ELSE 272 WRITE( numid(j_id),*)clinfo1272 WRITE(j_id,*)clinfo1 273 273 ENDIF 274 274 … … 349 349 DO jn = sind, eind 350 350 WRITE(clfile_out,FMT=clb_name) jn-1 351 j_id = jn -narea + 1352 CALL ctlopn( numid(j_id), clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &351 j_id = numid(jn -narea + 1) 352 CALL ctlopn( j_id, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 353 353 & 1, numout, .FALSE., 1 ) 354 WRITE( numid(j_id),*)355 WRITE( numid(j_id),*) ' L O D Y C - I P S L'356 WRITE( numid(j_id),*) ' O P A model'357 WRITE( numid(j_id),*) ' Ocean General Circulation Model'358 WRITE( numid(j_id),*) ' version OPA 9.0 (2005) '359 WRITE( numid(j_id),*)360 WRITE( numid(j_id),*) ' PROC number: ', jn361 WRITE( numid(j_id),*)362 WRITE( numid(j_id),FMT="(19x,a20)")cl_run354 WRITE(j_id,*) 355 WRITE(j_id,*) ' L O D Y C - I P S L' 356 WRITE(j_id,*) ' O P A model' 357 WRITE(j_id,*) ' Ocean General Circulation Model' 358 WRITE(j_id,*) ' version OPA 9.0 (2005) ' 359 WRITE(j_id,*) 360 WRITE(j_id,*) ' PROC number: ', jn 361 WRITE(j_id,*) 362 WRITE(j_id,FMT="(19x,a20)")cl_run 363 363 364 364 ! Print the SUM control indices … … 369 369 njctle = njmpptl(jn) + nlejtl(jn) - 1 370 370 ENDIF 371 WRITE( numid(j_id),*)372 WRITE( numid(j_id),*) 'prt_ctl : Sum control indices'373 WRITE( numid(j_id),*) '~~~~~~~'374 WRITE( numid(j_id),*)375 WRITE( numid(j_id),9000)' nlej = ', nlejtl(jn), ' '376 WRITE( numid(j_id),9000)' ------------- njctle = ', njctle, ' -------------'377 WRITE( numid(j_id),9001)' | |'378 WRITE( numid(j_id),9001)' | |'379 WRITE( numid(j_id),9001)' | |'380 WRITE( numid(j_id),9002)' nictls = ', nictls, ' nictle = ', nictle381 WRITE( numid(j_id),9002)' nldi = ', nlditl(jn), ' nlei = ', nleitl(jn)382 WRITE( numid(j_id),9001)' | |'383 WRITE( numid(j_id),9001)' | |'384 WRITE( numid(j_id),9001)' | |'385 WRITE( numid(j_id),9004)' njmpp = ',njmpptl(jn),' ------------- njctls = ', njctls, ' -------------'386 WRITE( numid(j_id),9003)' nimpp = ', nimpptl(jn), ' nldj = ', nldjtl(jn), ' '387 WRITE( numid(j_id),*)388 WRITE( numid(j_id),*)371 WRITE(j_id,*) 372 WRITE(j_id,*) 'prt_ctl : Sum control indices' 373 WRITE(j_id,*) '~~~~~~~' 374 WRITE(j_id,*) 375 WRITE(j_id,9000)' nlej = ', nlejtl(jn), ' ' 376 WRITE(j_id,9000)' ------------- njctle = ', njctle, ' -------------' 377 WRITE(j_id,9001)' | |' 378 WRITE(j_id,9001)' | |' 379 WRITE(j_id,9001)' | |' 380 WRITE(j_id,9002)' nictls = ', nictls, ' nictle = ', nictle 381 WRITE(j_id,9002)' nldi = ', nlditl(jn), ' nlei = ', nleitl(jn) 382 WRITE(j_id,9001)' | |' 383 WRITE(j_id,9001)' | |' 384 WRITE(j_id,9001)' | |' 385 WRITE(j_id,9004)' njmpp = ',njmpptl(jn),' ------------- njctls = ', njctls, ' -------------' 386 WRITE(j_id,9003)' nimpp = ', nimpptl(jn), ' nldj = ', nldjtl(jn), ' ' 387 WRITE(j_id,*) 388 WRITE(j_id,*) 389 389 390 390 9000 FORMAT(a41,i4.4,a14)
Note: See TracChangeset
for help on using the changeset viewer.