Ignore:
Timestamp:
Jul 26, 2024, 7:20:23 PM (4 months ago)
Author:
abarral
Message:

Put iotd* into lmdz_iotd.f90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.F90

    r5117 r5135  
    26662666       ! inputs
    26672667       REAL x(ntraciso)
    2668        character*(*) err_msg ! message d''erreur à afficher
     2668       CHARACTER*(*) err_msg ! message d''erreur à afficher
    26692669
    26702670       ! local
    … …  
    26932693       ! inputs
    26942694       REAL x(ntraciso)
    2695        character*(*) err_msg ! message d''erreur à afficher
     2695       CHARACTER*(*) err_msg ! message d''erreur à afficher
    26962696
    26972697       ! output
    … …  
    27452745       INTEGER n,m
    27462746       REAL x(ntraciso,n,m)
    2747        character*(*) err_msg ! message d''erreur à afficher       
     2747       CHARACTER*(*) err_msg ! message d''erreur à afficher
    27482748
    27492749       ! locals
Note: See TracChangeset for help on using the changeset viewer.