Changeset 258 for trunk/NEMO/OPA_SRC/DYN/dynldf_lap.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynldf_lap.F90
r247 r258 18 18 USE trdmod_oce ! ocean variables trends 19 19 USE ldfslp ! iso-neutral slopes 20 USE prtctl ! Print control 20 21 21 22 IMPLICIT NONE … … 136 137 ENDIF 137 138 138 IF(l_ctl) THEN ! print sum trends (used for debugging) 139 zua = SUM( ua(2:nictl,2:njctl,1:jpkm1) * umask(2:nictl,2:njctl,1:jpkm1) ) 140 zva = SUM( va(2:nictl,2:njctl,1:jpkm1) * vmask(2:nictl,2:njctl,1:jpkm1) ) 141 WRITE(numout,*) ' ldf - Ua: ', zua-u_ctl, ' Va: ', zva-v_ctl 142 u_ctl = zua ; v_ctl = zva 139 IF(ln_ctl) THEN ! print sum trends (used for debugging) 140 CALL prt_ctl(tab3d_1=ua, clinfo1=' ldf - Ua: ', mask1=umask, & 141 & tab3d_2=va, clinfo2=' Va: ', mask2=vmask, clinfo3='dyn') 143 142 ENDIF 144 143
Note: See TracChangeset
for help on using the changeset viewer.