- Timestamp:
- Jul 21, 2024, 1:07:18 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_write_mod.F90
r5082 r5093 457 457 458 458 ! ug On récupère le type écrit de la structure: 459 ! Assez moche, �|refaire si meilleure méthode...459 ! Assez moche, à refaire si meilleure méthode... 460 460 IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN 461 461 typeecrit = 'once' … … 559 559 560 560 ! ug On récupère le type écrit de la structure: 561 ! Assez moche, �|refaire si meilleure méthode...561 ! Assez moche, à refaire si meilleure méthode... 562 562 IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN 563 563 typeecrit = 'once'
Note: See TracChangeset
for help on using the changeset viewer.