Changeset 212 for codes/icosagcm/trunk


Ignore:
Timestamp:
07/15/14 18:10:48 (10 years ago)
Author:
dubos
Message:

Fixed output of itau_physics, etc.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/time.f90

    r186 r212  
    6565    CALL getin('run_length',run_length) 
    6666    itaumax=run_length/dt 
    67     IF (is_mpi_root)  THEN 
    68        PRINT *, 'itaumax=',itaumax 
    69        PRINT *, 'itau_adv=',itau_adv, 'itau_dissip=',itau_dissip, 'itau_physics=',itau_physics 
    70     END IF 
    7167    dt=dt/scale_factor 
    7268 
    … …  
    8783    CALL getin('itau_physics',itau_physics) 
    8884 
     85    IF (is_mpi_root)  THEN 
     86       PRINT *, 'itaumax=',itaumax 
     87       PRINT *, 'itau_adv=',itau_adv, 'itau_dissip=',itau_dissip, 'itau_physics=',itau_physics 
     88    END IF 
    8989     
    9090    CALL create_time_counter_header 
Note: See TracChangeset for help on using the changeset viewer.