- Timestamp:
- 03/16/20 23:56:25 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/time/timeloop_gcm.F90
r1015 r1023 12 12 13 13 INTEGER, PARAMETER :: sync_it=10 14 TYPE(t_message),SAVE :: req_ps0, req_ mass0, req_theta_rhodz0, req_u0, req_q0, req_W0, req_geopot014 TYPE(t_message),SAVE :: req_ps0, req_rhodz0, req_mass0, req_theta_rhodz0, req_u0, req_q0, req_W0, req_geopot0 15 15 LOGICAL, SAVE :: positive_theta 16 16 INTEGER :: itau_prof, id_timeloop, id_dyn, id_phys, id_dissip, id_adv, id_diags … … 167 167 CALL init_message(f_ps,req_i0,req_ps0) 168 168 CALL init_message(f_mass,req_i0,req_mass0) 169 CALL init_message(f_rhodz,req_i0,req_rhodz0) 169 170 CALL init_message(f_theta_rhodz,req_i0,req_theta_rhodz0) 170 171 CALL init_message(f_u,req_e0_vect,req_u0) … … 213 214 IF (MOD(86400,INT(i*dt))==0 .AND. ABS((sync_it-itau_sync)*1./sync_it )/sync_it < (sync_it-itau_sync)*1./sync_it) itau_sync=i 214 215 ENDDO 216 CALL getin("itau_sync",itau_sync) 215 217 IF (is_master) PRINT*,"Synchronize frontier every itau_sync =",itau_sync 216 218 … … 233 235 END DO 234 236 !$OMP BARRIER 237 235 238 fluxt_zero=.TRUE. 236 239 … … 287 290 CALL send_message(f_mass,req_mass0) 288 291 CALL wait_message(req_mass0) 292 CALL send_message(f_rhodz,req_rhodz0) 293 CALL wait_message(req_rhodz0) 289 294 CALL send_message(f_theta_rhodz,req_theta_rhodz0) 290 295 CALL wait_message(req_theta_rhodz0)
Note: See TracChangeset
for help on using the changeset viewer.