Ignore:
Timestamp:
Jul 24, 2024, 2:54:37 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/getparam.F90

    r5113 r5116  
    5151
    5252    IF (mpi_rank==0) THEN
    53       write(out_eff,*) '######################################'
    54       write(out_eff,*) '#### ',comment,' #####'
    55       write(out_eff,*) TARGET,'=',ret_val
     53      WRITE(out_eff,*) '######################################'
     54      WRITE(out_eff,*) '#### ',comment,' #####'
     55      WRITE(out_eff,*) TARGET,'=',ret_val
    5656    ENDIF
    5757   
    … …  
    7777
    7878    IF (mpi_rank==0) THEN
    79       write(out_eff,*) '######################################'
    80       write(out_eff,*) '#### ',comment,' #####'
    81       write(out_eff,*) comment
    82       write(out_eff,*) TARGET,'=',ret_val
     79      WRITE(out_eff,*) '######################################'
     80      WRITE(out_eff,*) '#### ',comment,' #####'
     81      WRITE(out_eff,*) comment
     82      WRITE(out_eff,*) TARGET,'=',ret_val
    8383    ENDIF
    8484   
    … …  
    104104
    105105    IF (mpi_rank==0) THEN
    106       write(out_eff,*) '######################################'
    107       write(out_eff,*) '#### ',comment,' #####'
    108       write(out_eff,*) TARGET,'=',ret_val
     106      WRITE(out_eff,*) '######################################'
     107      WRITE(out_eff,*) '#### ',comment,' #####'
     108      WRITE(out_eff,*) TARGET,'=',ret_val
    109109    ENDIF
    110110       
Note: See TracChangeset for help on using the changeset viewer.