Changeset 819 for codes/icosagcm/trunk/src/initial
- Timestamp:
- 03/27/19 15:45:37 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/initial/etat0_start_file.f90
r548 r819 45 45 LOGICAL :: etat0_start_file_colocated=.FALSE. 46 46 INTEGER :: ind 47 LOGICAL :: raz 47 48 48 49 CALL getin("etat0_start_file_colocated",etat0_start_file_colocated) … … 110 111 111 112 CALL bcast(itau0) 113 raz=.FALSE. 114 CALL getin("etat0_start_iteration_reset",raz) 115 IF (raz) itau0=0 112 116 CALL getin("etat0_start_iteration",itau0) 113 117
Note: See TracChangeset
for help on using the changeset viewer.