Changeset 3828
- Timestamp:
- 2013-03-06T10:02:01+01:00 (11 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r3822 r3828 163 163 IF( kt /= nit000 .AND. ( sf_dyn(jf_tem)%nrec_a(2) - nrecprev_tem ) /= 0 ) iswap_tem = 1 164 164 IF( ( isecsbc > sf_dyn(jf_tem)%nrec_b(2) .AND. iswap_tem == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 165 write(numout,*) 166 write(numout,*) ' Compute new slopes at kt = ', kt 165 IF(lwp) WRITE(numout,*) ' Compute new slopes at kt = ', kt 167 166 IF( sf_dyn(jf_tem)%ln_tint ) THEN ! time interpolation of data 168 167 IF( kt /= nit000 ) THEN … … 213 212 IF( kt /= nit000 .AND. ( sf_dyn(jf_uwd)%nrec_a(2) - nrecprev_uwd ) /= 0 ) iswap_uwd = 1 214 213 IF( ( isecsbc > sf_dyn(jf_uwd)%nrec_b(2) .AND. iswap_uwd == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 215 write(numout,*) 216 write(numout,*) ' Compute new vertical velocity at kt = ', kt 217 write(numout,*) 214 IF(lwp) WRITE(numout,*) ' Compute new vertical velocity at kt = ', kt 215 IF(lwp) WRITE(numout,*) 218 216 IF( sf_dyn(jf_uwd)%ln_tint ) THEN ! time interpolation of data 219 217 IF( kt /= nit000 ) THEN -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r3294 r3828 85 85 ! 86 86 ntra = MAX( 1, nb_trcdta ) ! To avoid compilation error with bounds checking 87 WRITE(numout,*) ' ' 88 WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra 89 WRITE(numout,*) ' ' 87 IF(lwp) THEN 88 WRITE(numout,*) ' ' 89 WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra 90 WRITE(numout,*) ' ' 91 ENDIF 90 92 ! ! allocate the arrays (if necessary) 91 93 !
Note: See TracChangeset
for help on using the changeset viewer.