Ignore:
Timestamp:
Jul 23, 2024, 7:14:34 PM (6 months ago)
Author:
abarral
Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

    r5104 r5105  
    978978    ENDDO
    979979
    980     RETURN
     980
    981981  END SUBROUTINE dyn1dredem
    982982
     
    10171017    ENDDO
    10181018
    1019     RETURN
     1019
    10201020  END SUBROUTINE gr_fi_dyn
    10211021
     
    14701470    print *, 'rh_targ', rh_targ
    14711471
    1472     RETURN
     1472
    14731473  END SUBROUTINE nudge_rht_init
    14741474
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_amma_read.F90

    r5103 r5105  
    341341!          write(*,*)'lecture pp ok',pp
    342342
    343          return
     343
    344344         END SUBROUTINE  read_amma
    345345!======================================================================
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read.F90

    r5103 r5105  
    799799
    800800
    801          return
     801
    802802         END SUBROUTINE  read_cas
    803803!======================================================================
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

    r5103 r5105  
    639639  enddo
    640640
    641   return
     641
    642642END SUBROUTINE  read_cas2
    643643!======================================================================
     
    807807
    808808
    809   return
     809
    810810END SUBROUTINE  read2_cas
    811811
     
    10161016  !-----------------------------------------------------------------------
    10171017
    1018   return
     1018
    10191019END SUBROUTINE  old_read_SCM
    10201020!======================================================================
     
    12211221  enddo
    12221222
    1223   return
     1223
    12241224END SUBROUTINE interp_case_time2
    12251225
     
    14581458  enddo
    14591459
    1460   return
     1460
    14611461END SUBROUTINE interp2_case_time
    14621462
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

    r5103 r5105  
    619619    !-----------------------------------------------------------------------
    620620
    621     return
     621
    622622  END SUBROUTINE read_SCM
    623623  !======================================================================
     
    904904    enddo
    905905
    906     return
     906
    907907  END SUBROUTINE interp_case_time_std
    908908
     
    12071207
    12081208
    1209     return
     1209
    12101210  END SUBROUTINE  interp2_case_vertical_std
    12111211  !*****************************************************************************
  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5103 r5105  
    487487!         write(*,*)'lecture T_srf ok', T_srf
    488488
    489          return
     489
    490490         end subroutine read_twpice
    491491!=====================================================================
     
    23702370!          write(*,*)'lecture thl_rad ok',thl_rad
    23712371
    2372          return
     2372
    23732373         end subroutine read_fire
    23742374!=====================================================================
     
    27062706!          write(*,*)'lecture omega ok',omega
    27072707
    2708          return
     2708
    27092709         end subroutine read_dice
    27102710!=====================================================================
     
    29492949           hadvq(k,:)=hadvq_i(nlevel+1-k,:)
    29502950         enddo
    2951          return
     2951
    29522952 end subroutine read_gabls4
    29532953!=====================================================================
     
    30553055      close(16)
    30563056 
    3057       return
     3057
    30583058      end subroutine read_circ
    30593059!=====================================================================
     
    30923092      close(12)
    30933093 
    3094       return
     3094
    30953095      end subroutine read_rtmip
    30963096!=====================================================================
Note: See TracChangeset for help on using the changeset viewer.