Changeset 403 for codes/icosagcm/trunk/src/observable.f90
- Timestamp:
- 06/08/16 02:55:08 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/observable.f90
r397 r403 37 37 END SUBROUTINE init_observable 38 38 39 SUBROUTINE write_output_fields_basic(f_p s, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)39 SUBROUTINE write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q) 40 40 USE wind_mod 41 41 USE output_field_mod … … 51 51 USE omega_mod 52 52 53 TYPE(t_field),POINTER :: f_p s(:), f_mass(:), f_geopot(:), f_theta_rhodz(:), f_u(:), f_W(:), f_q(:)53 TYPE(t_field),POINTER :: f_phis(:), f_ps(:), f_mass(:), f_geopot(:), f_theta_rhodz(:), f_u(:), f_W(:), f_q(:) 54 54 ! IF (is_master) PRINT *,'CALL write_output_fields_basic' 55 55 REAL :: scalar(1) … … 71 71 CALL xios_send_field("mid_ap",mid_ap) 72 72 CALL xios_send_field("mid_bp",mid_bp) 73 74 CALL output_field("phis",f_phis) 73 75 74 76 first_output=.FALSE.
Note: See TracChangeset
for help on using the changeset viewer.