- Timestamp:
- 2015-12-16T10:25:22+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r4667 r6060 118 118 WRITE(numout,*) ' south-west indices jpizoom = ', jpizoom, & 119 119 & ' jpjzoom = ', jpjzoom 120 WRITE(numout,*) 121 WRITE(numout,*) ' conversion local ==> data i-index domain' 122 WRITE(numout,25) (mig(ji),ji = 1,jpi) 123 WRITE(numout,*) 124 WRITE(numout,*) ' conversion data ==> local i-index domain' 125 WRITE(numout,*) ' starting index' 126 WRITE(numout,25) (mi0(ji),ji = 1,jpidta) 127 WRITE(numout,*) ' ending index' 128 WRITE(numout,25) (mi1(ji),ji = 1,jpidta) 129 WRITE(numout,*) 130 WRITE(numout,*) ' conversion local ==> data j-index domain' 131 WRITE(numout,25) (mjg(jj),jj = 1,jpj) 132 WRITE(numout,*) 133 WRITE(numout,*) ' conversion data ==> local j-index domain' 134 WRITE(numout,*) ' starting index' 135 WRITE(numout,25) (mj0(jj),jj = 1,jpjdta) 136 WRITE(numout,*) ' ending index' 137 WRITE(numout,25) (mj1(jj),jj = 1,jpjdta) 120 IF( nn_print >= 1 ) THEN 121 WRITE(numout,*) 122 WRITE(numout,*) ' conversion local ==> data i-index domain' 123 WRITE(numout,25) (mig(ji),ji = 1,jpi) 124 WRITE(numout,*) 125 WRITE(numout,*) ' conversion data ==> local i-index domain' 126 WRITE(numout,*) ' starting index' 127 WRITE(numout,25) (mi0(ji),ji = 1,jpidta) 128 WRITE(numout,*) ' ending index' 129 WRITE(numout,25) (mi1(ji),ji = 1,jpidta) 130 WRITE(numout,*) 131 WRITE(numout,*) ' conversion local ==> data j-index domain' 132 WRITE(numout,25) (mjg(jj),jj = 1,jpj) 133 WRITE(numout,*) 134 WRITE(numout,*) ' conversion data ==> local j-index domain' 135 WRITE(numout,*) ' starting index' 136 WRITE(numout,25) (mj0(jj),jj = 1,jpjdta) 137 WRITE(numout,*) ' ending index' 138 WRITE(numout,25) (mj1(jj),jj = 1,jpjdta) 139 ENDIF 138 140 ENDIF 139 141 25 FORMAT( 100(10x,19i4,/) )
Note: See TracChangeset
for help on using the changeset viewer.