Changeset 343
- Timestamp:
- 07/31/15 16:28:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_adv.f90
r186 r343 1 1 MODULE caldyn_adv_mod 2 2 USE icosa 3 4 3 IMPLICIT NONE 5 4 PRIVATE … … 53 52 f_hflux, f_wflux, f_dps, f_dtheta_rhodz, f_du) 54 53 USE icosa 54 USE output_field_mod 55 55 USE vorticity_mod 56 56 USE kinetic_mod … … 96 96 97 97 IF (write_out) THEN 98 CALL writefield("ps",f_ps)99 CALL writefield("wflux",f_wflux)98 CALL output_field("wflux",f_wflux) 99 CALL output_field("ps",f_ps) 100 100 ENDIF 101 101 ! CALL check_mass_conservation(f_ps,f_dps)
Note: See TracChangeset
for help on using the changeset viewer.