- Timestamp:
- 2019-12-11T09:53:24+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcssm.F90
r10425 r12166 60 60 ! 61 61 ! !* surface T-, U-, V- ocean level variables (T, S, depth, velocity) 62 DO jj = 1, jpj 63 DO ji = 1, jpi 64 zts(ji,jj,jp_tem) = tsn(ji,jj,mikt(ji,jj),jp_tem) 65 zts(ji,jj,jp_sal) = tsn(ji,jj,mikt(ji,jj),jp_sal) 66 END DO 67 END DO 62 zts(:,:,jp_tem) = tsn(:,:,1,jp_tem) 63 zts(:,:,jp_sal) = tsn(:,:,1,jp_sal) 68 64 ! 69 65 IF( nn_fsbc == 1 ) THEN ! Instantaneous surface fields !
Note: See TracChangeset
for help on using the changeset viewer.