Changeset 581 for codes/icosagcm/trunk/src/output/write_etat0.f90
- Timestamp:
- 10/13/17 16:00:58 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/output/write_etat0.f90
r548 r581 5 5 CONTAINS 6 6 7 SUBROUTINE write_etat0(it,f_ps,f_phis,f_theta_rhodz,f_u, f_q )7 SUBROUTINE write_etat0(it,f_ps,f_phis,f_theta_rhodz,f_u, f_q, f_geopot, f_W) 8 8 USE icosa 9 9 USE restart_mod … … 20 20 TYPE(t_field),POINTER :: f_u(:) 21 21 TYPE(t_field),POINTER :: f_q(:) 22 TYPE(t_field),POINTER, OPTIONAL :: f_geopot(:) 23 TYPE(t_field),POINTER, OPTIONAL :: f_W(:) 22 24 23 25 TYPE(t_field),POINTER,SAVE :: f_ulon(:) … … 41 43 CALL transfert_request(f_u,req_e1_vect) 42 44 CALL un2ulonlat(f_u, f_ulon, f_ulat) 43 44 CALL write_restart(it,f_ps,f_phis,f_theta_rhodz_1d,f_u, f_ulon, f_ulat, f_q)45 45 46 IF(hydrostatic) THEN 47 CALL write_restart(it,f_ps,f_phis,f_theta_rhodz_1d,f_u, f_ulon, f_ulat, f_q) 48 ELSE 49 CALL write_restart(it,f_ps,f_phis,f_theta_rhodz_1d,f_u, f_ulon, f_ulat, f_q, f_geopot, f_W) 50 END IF 46 51 CALL deallocate_field(f_ulon) 47 52 CALL deallocate_field(f_ulat)
Note: See TracChangeset
for help on using the changeset viewer.