Changeset 1267 for trunk/NEMO
- Timestamp:
- 2009-01-14T10:07:15+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssm.F90
r1244 r1267 60 60 ENDIF 61 61 ! 62 ssu_m(:,:) = u n(:,:,1)63 ssv_m(:,:) = v n(:,:,1)62 ssu_m(:,:) = ub(:,:,1) 63 ssv_m(:,:) = vb(:,:,1) 64 64 sst_m(:,:) = tn(:,:,1) 65 65 sss_m(:,:) = sn(:,:,1) … … 96 96 IF(lwp) WRITE(numout,*) '~~~~~~~ mean fields initialised to instantaneous values' 97 97 zcoef = REAL( nn_fsbc - 1, wp ) 98 ssu_m(:,:) = zcoef * u n(:,:,1)99 ssv_m(:,:) = zcoef * v n(:,:,1)98 ssu_m(:,:) = zcoef * ub(:,:,1) 99 ssv_m(:,:) = zcoef * vb(:,:,1) 100 100 sst_m(:,:) = zcoef * tn(:,:,1) 101 101 sss_m(:,:) = zcoef * sn(:,:,1) … … 114 114 ! ! Cumulate at each time step ! 115 115 ! ! ---------------------------------------- ! 116 ssu_m(:,:) = ssu_m(:,:) + u n(:,:,1)117 ssv_m(:,:) = ssv_m(:,:) + v n(:,:,1)116 ssu_m(:,:) = ssu_m(:,:) + ub(:,:,1) 117 ssv_m(:,:) = ssv_m(:,:) + vb(:,:,1) 118 118 sst_m(:,:) = sst_m(:,:) + tn(:,:,1) 119 119 sss_m(:,:) = sss_m(:,:) + sn(:,:,1)
Note: See TracChangeset
for help on using the changeset viewer.