Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90

    r5116 r5117  
    6969
    7070  !$OMP MASTER
    71   if (ok_dyn_xios) THEN
     71  IF (ok_dyn_xios) THEN
    7272     CALL xios_get_current_context(dyn3d_ctx_handle)
    73   endif
     73  ENDIF
    7474  !$OMP END MASTER
    7575
    … …  
    9999! switching back to LMDZDYN context
    100100!$OMP MASTER
    101   if (ok_dyn_xios) THEN
     101  IF (ok_dyn_xios) THEN
    102102     CALL xios_set_current_context(dyn3d_ctx_handle)
    103   endif
     103  ENDIF
    104104!$OMP END MASTER
    105105
Note: See TracChangeset for help on using the changeset viewer.