Changeset 607 for codes/icosagcm/trunk/src/diagnostics
- Timestamp:
- 11/19/17 00:18:39 (6 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.