- Timestamp:
- 2010-09-10T12:32:58+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/PISCES/p4zflx.F90
r2038 r2082 128 128 !CDIR NOVERRCHK 129 129 DO ji = 1, jpi 130 ztc = MIN( 35., t n(ji,jj,1) )130 ztc = MIN( 35., tsn(ji,jj,1,jp_tem) ) 131 131 ztc2 = ztc * ztc 132 132 ztc3 = ztc * ztc2
Note: See TracChangeset
for help on using the changeset viewer.