Changeset 281 for codes/icosagcm/trunk
- Timestamp:
- 10/11/14 23:36:13 (10 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/physics.f90
r266 r281 73 73 TYPE(t_physics_inout) :: args 74 74 75 IF(MOD(it +1,itau_physics)==0) THEN75 IF(MOD(it,itau_physics)==0) THEN 76 76 77 77 SELECT CASE(phys_type) … … 102 102 USE physics_interface_mod 103 103 USE physics_dcmip_mod, ONLY : full_physics_dcmip => full_physics 104 USE mpipara 104 105 IMPLICIT NONE 105 106 TYPE(t_field),POINTER :: f_phis(:) … … 132 133 CASE (phys_DCMIP) 133 134 CALL full_physics_dcmip 135 CASE DEFAULT 136 IF(is_mpi_root) PRINT *,'Internal error : illegal value of phys_type', phys_type 137 STOP 134 138 END SELECT 135 139 -
codes/icosagcm/trunk/src/timeloop_gcm.f90
r266 r281 290 290 END IF 291 291 292 293 IF (MOD(it,itau_physics)==0) THEN 294 CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q) 295 ENDIF 292 CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q) 296 293 297 294 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.