- Timestamp:
- 2019-12-05T18:41:39+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcssm.F90
r11027 r12077 61 61 ! 62 62 ! !* surface T-, U-, V- ocean level variables (T, S, depth, velocity) 63 DO jj = 1, jpj 64 DO ji = 1, jpi 65 zts(ji,jj,jp_tem) = ts(ji,jj,mikt(ji,jj),jp_tem,Kmm) 66 zts(ji,jj,jp_sal) = ts(ji,jj,mikt(ji,jj),jp_sal,Kmm) 67 END DO 68 END DO 63 zts(:,:,jp_tem) = ts(:,:,1,jp_tem,Kmm) 64 zts(:,:,jp_sal) = ts(:,:,1,jp_sal,Kmm) 69 65 ! 70 66 IF( nn_fsbc == 1 ) THEN ! Instantaneous surface fields ! … … 73 69 ssv_m(:,:) = vv(:,:,1,Kbb) 74 70 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 75 ELSE 71 ELSE ; sst_m(:,:) = zts(:,:,jp_tem) 76 72 ENDIF 77 73 sss_m(:,:) = zts(:,:,jp_sal)
Note: See TracChangeset
for help on using the changeset viewer.