Ignore:
Timestamp:
Jul 24, 2024, 1:17:08 PM (2 months ago)
Author:
abarral
Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_loc.f90

    r5105 r5113  
    4949!$OMP SINGLE
    5050  IF (firstcall) THEN
    51     ! ! set friction type
     51    ! set friction type
    5252    CALL getin("friction_type",friction_type)
    5353    if ((friction_type<0).or.(friction_type>1)) then
    … …  
    168168
    169169  if (friction_type==1) then
    170    ! ! for ucov()
     170   ! for ucov()
    171171    jjb=jj_begin
    172172    jje=jj_end
    … …  
    181181!$OMP END DO NOWAIT
    182182
    183    ! ! for vcoc()
     183   ! for vcoc()
    184184    jjb=jj_begin
    185185    jje=jj_end
Note: See TracChangeset for help on using the changeset viewer.