Changeset 607
- Timestamp:
- 11/19/17 00:18:39 (7 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/diagnostics/check_conserve.f90
r599 r607 127 127 WRITE(*,'(A,6E12.4)') 'AAM_vel : time,old,new,dissip,dyn,phys', dt*it, AAM_vel_old, AAM_vel, & 128 128 AAM_vel_source(AAM_dissip), AAM_vel_source(AAM_dyn), AAM_vel_source(AAM_phys) 129 WRITE(*,'(A,6E12.4)') 'AAM_tot : time,old,new,dissip,dyn,phys', dt*it, & 130 AAM_vel_old+AAM_mass_old, AAM_vel+AAM_mass, & 131 AAM_vel_source(AAM_dissip)+AAM_mass_source(AAM_dissip), & 132 AAM_vel_source(AAM_dyn) +AAM_mass_source(AAM_dyn), & 133 AAM_vel_source(AAM_phys) +AAM_mass_source(AAM_phys) 129 134 AAM_mass_old=AAM_mass 130 135 AAM_vel_old=AAM_vel -
codes/icosagcm/trunk/src/initial/etat0_heldsz.f90
r548 r607 245 245 DO i=ii_begin-1,ii_end+1 246 246 ij=(j-1)*iim+i 247 theta(ij,l)=theta(ij,l) - dt*(theta(ij,l)-theta_eq(ij,l))* &247 theta(ij,l)=theta(ij,l) - itau_physics*dt*(theta(ij,l)-theta_eq(ij,l))* & 248 248 (knewt_g+knewt_t(l)*COS(lat(ij))**4 ) 249 249 ENDDO … … 253 253 254 254 Do l=1,llm 255 u(:,l)=u(:,l)*(1.- dt*kfrict(l))255 u(:,l)=u(:,l)*(1.-itau_physics*dt*kfrict(l)) 256 256 END DO 257 257 -
codes/icosagcm/trunk/src/time/timeloop_gcm.f90
r604 r607 375 375 per_step = elapsed/(it-itau0) 376 376 throughput = dt/per_step 377 total = per_step* (itaumax-itau0)377 total = per_step*itaumax 378 378 WRITE(*,'(A,I5,A,F6.2,A,I6)') 'Time spent (s):',INT(elapsed), & 379 379 ' -- ms/step : ', 1000*per_step, &
Note: See TracChangeset
for help on using the changeset viewer.