- Timestamp:
- 2011-06-27T13:18:25+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/OBC/obcrad.F90
r2715 r2789 215 215 sebnd(jj,jk,nibm,nitm) = sebnd(jj,jk,nibm,nit)*temsk(jj,jk) 216 216 ! ... fields nit <== now (kt+1) 217 tebnd(jj,jk,nib ,nit) = t n(ji ,jj,jk)*temsk(jj,jk)218 tebnd(jj,jk,nibm ,nit) = t n(ji-1,jj,jk)*temsk(jj,jk)219 sebnd(jj,jk,nib ,nit) = sn(ji ,jj,jk)*temsk(jj,jk)220 sebnd(jj,jk,nibm ,nit) = sn(ji-1,jj,jk)*temsk(jj,jk)217 tebnd(jj,jk,nib ,nit) = tsn(ji ,jj,jk,jp_tem)*temsk(jj,jk) 218 tebnd(jj,jk,nibm ,nit) = tsn(ji-1,jj,jk,jp_tem)*temsk(jj,jk) 219 sebnd(jj,jk,nib ,nit) = tsn(ji ,jj,jk,jp_sal)*temsk(jj,jk) 220 sebnd(jj,jk,nibm ,nit) = tsn(ji-1,jj,jk,jp_sal)*temsk(jj,jk) 221 221 END DO 222 222 END DO … … 481 481 swbnd(jj,jk,nibm ,nitm) = swbnd(jj,jk,nibm ,nit)*twmsk(jj,jk) 482 482 ! ... fields nit <== now (kt+1) 483 twbnd(jj,jk,nib ,nit) = t n(ji ,jj,jk)*twmsk(jj,jk)484 twbnd(jj,jk,nibm ,nit) = t n(ji+1 ,jj,jk)*twmsk(jj,jk)485 swbnd(jj,jk,nib ,nit) = sn(ji ,jj,jk)*twmsk(jj,jk)486 swbnd(jj,jk,nibm ,nit) = sn(ji+1 ,jj,jk)*twmsk(jj,jk)483 twbnd(jj,jk,nib ,nit) = tsn(ji ,jj,jk,jp_tem)*twmsk(jj,jk) 484 twbnd(jj,jk,nibm ,nit) = tsn(ji+1 ,jj,jk,jp_tem)*twmsk(jj,jk) 485 swbnd(jj,jk,nib ,nit) = tsn(ji ,jj,jk,jp_sal)*twmsk(jj,jk) 486 swbnd(jj,jk,nibm ,nit) = tsn(ji+1 ,jj,jk,jp_sal)*twmsk(jj,jk) 487 487 END DO 488 488 END DO … … 750 750 snbnd(ji,jk,nibm ,nitm) = snbnd(ji,jk,nibm ,nit)*tnmsk(ji,jk) 751 751 ! ... fields nit <== now (kt+1) 752 tnbnd(ji,jk,nib ,nit) = t n(ji,jj, jk)*tnmsk(ji,jk)753 tnbnd(ji,jk,nibm ,nit) = t n(ji,jj-1,jk)*tnmsk(ji,jk)754 snbnd(ji,jk,nib ,nit) = sn(ji,jj, jk)*tnmsk(ji,jk)755 snbnd(ji,jk,nibm ,nit) = sn(ji,jj-1,jk)*tnmsk(ji,jk)752 tnbnd(ji,jk,nib ,nit) = tsn(ji,jj, jk,jp_tem)*tnmsk(ji,jk) 753 tnbnd(ji,jk,nibm ,nit) = tsn(ji,jj-1,jk,jp_tem)*tnmsk(ji,jk) 754 snbnd(ji,jk,nib ,nit) = tsn(ji,jj, jk,jp_sal)*tnmsk(ji,jk) 755 snbnd(ji,jk,nibm ,nit) = tsn(ji,jj-1,jk,jp_sal)*tnmsk(ji,jk) 756 756 END DO 757 757 END DO … … 1022 1022 ssbnd(ji,jk,nibm ,nitm) = ssbnd(ji,jk,nibm ,nit)*tsmsk(ji,jk) 1023 1023 ! ... fields nit <== now (kt+1) 1024 tsbnd(ji,jk,nib ,nit) = t n(ji,jj ,jk)*tsmsk(ji,jk)1025 tsbnd(ji,jk,nibm ,nit) = t n(ji,jj+1 ,jk)*tsmsk(ji,jk)1026 ssbnd(ji,jk,nib ,nit) = sn(ji,jj ,jk)*tsmsk(ji,jk)1027 ssbnd(ji,jk,nibm ,nit) = sn(ji,jj+1 ,jk)*tsmsk(ji,jk)1024 tsbnd(ji,jk,nib ,nit) = tsn(ji,jj ,jk,jp_tem)*tsmsk(ji,jk) 1025 tsbnd(ji,jk,nibm ,nit) = tsn(ji,jj+1 ,jk,jp_tem)*tsmsk(ji,jk) 1026 ssbnd(ji,jk,nib ,nit) = tsn(ji,jj ,jk,jp_sal)*tsmsk(ji,jk) 1027 ssbnd(ji,jk,nibm ,nit) = tsn(ji,jj+1 ,jk,jp_sal)*tsmsk(ji,jk) 1028 1028 END DO 1029 1029 END DO
Note: See TracChangeset
for help on using the changeset viewer.