Changeset 407 for codes/icosagcm/trunk/src/timeloop_gcm.f90
- Timestamp:
- 06/09/16 02:13:56 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/timeloop_gcm.f90
r403 r407 32 32 CHARACTER(len=255) :: def 33 33 34 IF (xios_output) itau_out=134 ! IF (xios_output) itau_out=1 35 35 IF (.NOT. enable_io) itau_out=HUGE(itau_out) 36 36 … … 248 248 ENDIF 249 249 250 IF (mod(it,itau_out)==0 ) THEN251 CALL transfert_request(f_u,req_e1_vect)252 CALL write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)253 ENDIF254 255 250 CALL guided(it*dt,f_ps,f_theta_rhodz,f_u,f_q) 256 251 … … 324 319 CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it) 325 320 ENDIF 321 322 IF (mod(it,itau_out)==0 ) THEN 323 CALL transfert_request(f_u,req_e1_vect) 324 CALL write_output_fields_basic(f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q) 325 ENDIF 326 326 327 END DO 327 328
Note: See TracChangeset
for help on using the changeset viewer.