Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 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/dyn3dmem/caladvtrac_loc.f90

    r5116 r5117  
    1313  USE bands
    1414  USE times
    15   USE Vampir
     15  USE lmdz_vampir
    1616  USE write_field_loc
    1717  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    … …  
    6060  ijbv = ij_begin - iip1
    6161  ijev = ij_end
    62   if (pole_nord) ijbv = ij_begin
    63   if (pole_sud)  ijev = ij_end - iip1
     62  IF (pole_nord) ijbv = ij_begin
     63  IF (pole_sud)  ijev = ij_end - iip1
    6464
    6565  IF(iadvtr==0) THEN
Note: See TracChangeset for help on using the changeset viewer.