| 314 | * La partie de code suivante dans stomate n'est pas conforme aux normes FORTRAN et donc pas très portable (après discussion avec P.Corde de l'IDRIS) : |
| 315 | |
| 316 | {{{ |
| 317 | !! 1.4.6.1 Calculate steps that can be stored in memory |
| 318 | ! Action for the root processor only (parallel computing) |
| 319 | IF (is_root_prc) CALL SYSTEM ('rm -f '//TRIM(forcing_name)) |
| 320 | WRITE(numout,*) 'writing a forcing file for STOMATE.' |
| 321 | }}} |
| 322 | on pourrait remplacer cette instruction par : |
| 323 | |
| 324 | {{{ |
| 325 | OPEN(unit=1, filename=TRIM(forcing_name),...) |
| 326 | CLOSE(unit=1, status=delete) |
| 327 | }}} |
| 328 | ou mieux encore : |
| 329 | {{{ |
| 330 | logical :: is_forcing |
| 331 | |
| 332 | INQUIRE(FILE=TRIM(forcing_name), EXIST=is_forcing) |
| 333 | IF (is_forcing) THEN |
| 334 | OPEN(unit=1, filename=TRIM(forcing_name)) |
| 335 | CLOSE(unit=1, status=delete) |
| 336 | }}} |
| 337 | * Les paramètres Tetens1 et Tetens2 pourraient être simplifiés (Tetens2 = 1 -Tetens1 de mémoire) et remplacés dans d'autres endroits du code. (voir avce Nicolas Vui) |
| 338 | |