Changeset 634
- Timestamp:
- 2007-03-07T14:25:10+01:00 (18 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/opa.F90
r627 r634 93 93 ! open listing and namelist units 94 94 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 95 & 'SEQUENTIAL', 1, numout, .FALSE., 1 )95 & 'SEQUENTIAL', 1, 6, .FALSE., 1 ) 96 96 97 97 namelistname = 'namelist' -
trunk/NEMO/OFF_SRC/prtctl.F90
r627 r634 349 349 DO jn = sind, eind 350 350 WRITE(clfile_out,FMT=clb_name) jn-1 351 CALL ctlopn( jn -narea + 1, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 352 & 1, numout, .FALSE., 1 ) 351 353 j_id = numid(jn -narea + 1) 352 CALL ctlopn( j_id, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &353 & 1, numout, .FALSE., 1 )354 354 WRITE(j_id,*) 355 355 WRITE(j_id,*) ' L O D Y C - I P S L' -
trunk/NEMO/OPA_SRC/opa.F90
r627 r634 191 191 ! open listing and namelist units 192 192 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 193 & 'SEQUENTIAL', 1, numout, .FALSE., 1 )193 & 'SEQUENTIAL', 1, 6, .FALSE., 1 ) 194 194 195 195 WRITE(numout,*) -
trunk/NEMO/OPA_SRC/prtctl.F90
r627 r634 349 349 DO jn = sind, eind 350 350 WRITE(clfile_out,FMT=clb_name) jn-1 351 CALL ctlopn( jn -narea + 1, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 352 & 1, numout, .FALSE., 1 ) 351 353 j_id = numid(jn -narea + 1) 352 CALL ctlopn( j_id, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &353 & 1, numout, .FALSE., 1 )354 354 WRITE(j_id,*) 355 355 WRITE(j_id,*) ' L O D Y C - I P S L' -
trunk/NEMO/TOP_SRC/prtctl_trc.F90
r627 r634 273 273 DO js = sind, eind 274 274 WRITE(clfile_out,FMT=clb_name) js-1 275 CALL ctlopn( js -narea + 1, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 276 & 1, numout, .FALSE., 1 ) 275 277 j_id = numid_trc(js -narea + 1) 276 CALL ctlopn( j_id, clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &277 & 1, numout, .FALSE., 1 )278 278 WRITE(j_id,*) 279 279 WRITE(j_id,*) ' L O D Y C - I P S L'
Note: See TracChangeset
for help on using the changeset viewer.