- Timestamp:
- 2013-03-06T10:01:26+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r3687 r3827 164 164 IF( kt /= nit000 .AND. ( sf_dyn(jf_tem)%nrec_a(2) - nrecprev_tem ) /= 0 ) iswap_tem = 1 165 165 IF( ( isecsbc > sf_dyn(jf_tem)%nrec_b(2) .AND. iswap_tem == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 166 write(numout,*) 167 write(numout,*) ' Compute new slopes at kt = ', kt 166 IF(lwp) WRITE(numout,*) ' Compute new slopes at kt = ', kt 168 167 IF( sf_dyn(jf_tem)%ln_tint ) THEN ! time interpolation of data 169 168 IF( kt /= nit000 ) THEN … … 214 213 IF( kt /= nit000 .AND. ( sf_dyn(jf_uwd)%nrec_a(2) - nrecprev_uwd ) /= 0 ) iswap_uwd = 1 215 214 IF( ( isecsbc > sf_dyn(jf_uwd)%nrec_b(2) .AND. iswap_uwd == 1 ) .OR. kt == nit000 ) THEN ! read/update the after data 216 write(numout,*) 217 write(numout,*) ' Compute new vertical velocity at kt = ', kt 218 write(numout,*) 215 IF(lwp) WRITE(numout,*) ' Compute new vertical velocity at kt = ', kt 216 IF(lwp) WRITE(numout,*) 219 217 IF( sf_dyn(jf_uwd)%ln_tint ) THEN ! time interpolation of data 220 218 IF( kt /= nit000 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.