- Timestamp:
- 2013-12-11T18:34:00+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r4302 r4333 51 51 PUBLIC lim_sbc_tau ! called by sbc_ice_lim 52 52 53 REAL(wp) :: epsi16 = 1.e-16_wp ! constant values54 53 REAL(wp) :: rzero = 0._wp 55 54 REAL(wp) :: rone = 1._wp … … 147 146 148 147 ! computation the solar flux at ocean surface 149 IF (lk_cpl) THEN ! be carfeful: not be ingtested yet148 IF (lk_cpl) THEN ! be carfeful: not been tested yet 150 149 ! original line 151 150 !zfcm1 = qsr_tot(ji,jj) + fstric(ji,jj) * at_i(ji,jj) … … 190 189 qns(ji,jj) = zfcm2 - fdtcn(ji,jj) ! non solar heat flux 191 190 ! ! fdtcn : turbulent oceanic heat flux 192 193 !!gm this IF prevents the vertorisation of the whole loop194 ! IF ( ( ji == jiindx ) .AND. ( jj == jjindx) ) THEN195 ! WRITE(numout,*) ' lim_sbc : heat fluxes '196 ! WRITE(numout,*) ' qsr : ', qsr(jiindx,jjindx)197 ! WRITE(numout,*) ' pfrld : ', pfrld(jiindx,jjindx)198 ! WRITE(numout,*) ' fstric : ', fstric (jiindx,jjindx)199 ! WRITE(numout,*)200 ! WRITE(numout,*) ' qns : ', qns(jiindx,jjindx)201 ! WRITE(numout,*) ' fdtcn : ', fdtcn(jiindx,jjindx)202 ! WRITE(numout,*) ' ifral : ', ifral203 ! WRITE(numout,*) ' ial : ', ial204 ! WRITE(numout,*) ' qcmif : ', qcmif(jiindx,jjindx)205 ! WRITE(numout,*) ' qldif : ', qldif(jiindx,jjindx)206 ! !WRITE(numout,*) ' qcmif / dt: ', qcmif(jiindx,jjindx) * r1_rdtice207 ! !WRITE(numout,*) ' qldif / dt: ', qldif(jiindx,jjindx) * r1_rdtice208 ! WRITE(numout,*) ' ifrdv : ', ifrdv209 ! WRITE(numout,*) ' qfvbq : ', qfvbq(jiindx,jjindx)210 ! WRITE(numout,*) ' qdtcn : ', qdtcn(jiindx,jjindx)211 ! !WRITE(numout,*) ' qfvbq / dt: ', qfvbq(jiindx,jjindx) * r1_rdtice212 ! !WRITE(numout,*) ' qdtcn / dt: ', qdtcn(jiindx,jjindx) * r1_rdtice213 ! WRITE(numout,*) ' '214 ! WRITE(numout,*) ' fdtcn : ', fdtcn(jiindx,jjindx)215 ! WRITE(numout,*) ' fhmec : ', fhmec(jiindx,jjindx)216 ! WRITE(numout,*) ' fheat_mec : ', fheat_mec(jiindx,jjindx)217 ! WRITE(numout,*) ' fhbri : ', fhbri(jiindx,jjindx)218 ! WRITE(numout,*) ' fheat_res : ', fheat_res(jiindx,jjindx)219 ! ENDIF220 !!gm end221 191 END DO 222 192 END DO
Note: See TracChangeset
for help on using the changeset viewer.