Changeset 250 for codes/icosagcm/trunk
- Timestamp:
- 07/23/14 12:28:16 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dissip_gcm.f90
r186 r250 427 427 ENDDO 428 428 429 itau_dissip=INT(mintau/dt) 429 IF(mintau>0) THEN 430 itau_dissip=INT(mintau/dt) 431 dtdissip=itau_dissip*dt 432 ELSE 433 IF (is_mpi_root) PRINT *,"No dissipation time set, setting itau_dissip to 1000000000" 434 itau_dissip=100000000 435 END IF 430 436 itau_dissip=MAX(1,itau_dissip) 431 dtdissip=itau_dissip*dt432 437 IF (is_mpi_root) PRINT *,"mintau ",mintau,"itau_dissip",itau_dissip," dtdissip ",dtdissip 433 438
Note: See TracChangeset
for help on using the changeset viewer.