Changeset 1101 for trunk/NEMO/OFF_SRC/opa.F90
- Timestamp:
- 2008-06-09T15:41:57+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/opa.F90
r1014 r1101 112 112 lwp = narea == 1 113 113 114 IF( lk_mpp ) THEN 115 CLOSE( numout ) ! standard model output file 116 WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1 117 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 118 & 'SEQUENTIAL', 1, numout, .FALSE., 1 ) 119 ! 120 WRITE(numout,*) 121 WRITE(numout,*) ' L O D Y C - I P S L' 122 WRITE(numout,*) ' O P A model' 123 WRITE(numout,*) ' Ocean General Circulation Model' 124 WRITE(numout,*) ' version OPA 9.0 (2005) ' 125 WRITE(numout,*) ' MPI Ocean output ' 126 WRITE(numout,*) 127 WRITE(numout,*) 114 ! open additionnal listing 115 IF( ln_ctl ) THEN 116 IF( narea-1 > 0 ) THEN 117 WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1 118 CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED', & 119 & 'SEQUENTIAL', 1, numout, .FALSE., 1 ) 120 lwp = .TRUE. 121 ! 122 WRITE(numout,*) 123 WRITE(numout,*) ' L O D Y C - I P S L' 124 WRITE(numout,*) ' O P A model' 125 WRITE(numout,*) ' Ocean General Circulation Model' 126 WRITE(numout,*) ' version OPA 9.0 (2005) ' 127 WRITE(numout,*) ' MPI Ocean output ' 128 WRITE(numout,*) 129 WRITE(numout,*) 130 ENDIF 128 131 ENDIF 129 132
Note: See TracChangeset
for help on using the changeset viewer.