Changeset 81 for codes/icosagcm/trunk
- Timestamp:
- 08/03/12 02:13:15 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/timeloop_gcm.f90
r63 r81 10 10 USE guided_mod 11 11 USE advect_tracer_mod 12 USE physics_mod 12 13 13 14 IMPLICIT NONE … … 98 99 CALL init_guided(dt) 99 100 CALL init_advect_tracer(dt) 101 CALL init_physics(dt) 100 102 101 103 CALL etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 104 CALL transfert_request(f_q,req_i1) 102 105 103 106 DO it=0,itaumax 107 104 108 PRINT *,"It No :",It," t :",dt*It 105 109 IF (mod(it,itau_out)==0 ) THEN 106 110 CALL writefield("q",f_q) 111 CALL update_time_counter(dt*it) 107 112 ENDIF 108 113 … … 110 115 CALL caldyn(it,f_phis,f_ps,f_theta_rhodz,f_u, f_dps, f_dtheta_rhodz, f_du) 111 116 CALL advect_tracer(f_ps,f_u,f_q) 112 117 CALL physics(f_phis, f_ps, f_theta_rhodz, f_u, f_q) 113 118 114 119 SELECT CASE (TRIM(scheme)) … … 132 137 133 138 END SELECT 134 139 135 140 ENDDO 136 141
Note: See TracChangeset
for help on using the changeset viewer.