Ignore:
Timestamp:
Jul 23, 2024, 3:29:36 PM (13 months ago)
Author:
abarral
Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VARdSV.F90

    r5099 r5103  
    99! +  =======================
    1010
    11       LOGICAL           ::   INI_SV=.false.          ! Initialisation Switch     
     11      LOGICAL           ::   INI_SV=.FALSE.          ! Initialisation Switch
    1212      REAL,PARAMETER    ::   eps_21=1.e-21           ! Arbitrary  very small value
    1313

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/inlandsis.F

    r5099 r5103  
    1       subroutine INLANDSIS(SnoMod,BloMod,jjtime,debut)
     1      SUBROUTINE INLANDSIS(SnoMod,BloMod,jjtime,debut)
    22
    33      USE dimphy
    … …  
    415415     .         eta_SV(1,max(1,isnoSV(1)))<epsi) then
    416416C +                       **********
    417                      call SISVAT_BSn
     417                     CALL SISVAT_BSn
    418418          endif
    419419         else
    420                      call SISVAT_BSn
     420                     CALL SISVAT_BSn
    421421C +                       **********
    422422        endif
    … …  
    659659 
    660660!          C.Agosta option for snow density, same as for BS i.e.
    661 !          is_ok_density_kotlyakov=.false.
    662 c #BS       density_kotlyakov = .false.  !C.Amory BS 2018
     661!          is_ok_density_kotlyakov=.FALSE.
     662c #BS       density_kotlyakov = .FALSE.  !C.Amory BS 2018
    663663C + ...     Fallen Snow Density, Adapted for Antarctica
    664664            if (is_ok_density_kotlyakov) then
    … …  
    898898       if(isnoSV(1)>=1.or.NLaysv(1)>=1) then
    899899C +          **********
    900          call SISVAT_zSn
     900         CALL SISVAT_zSn
    901901C +          **********
    902902       endif
    903903      else
    904904C +          **********
    905         call SISVAT_zSn
     905        CALL SISVAT_zSn
    906906C +          **********
    907907      endif
    908908 
    909909C +          **********
    910 ! #ve   call SISVAT_wEq('_zSn  ',0)
     910! #ve   CALL SISVAT_wEq('_zSn  ',0)
    911911C +          **********
    912912
    … …  
    981981
    982982!            ******
    983         call SnOptP(jjtime)
     983        CALL SnOptP(jjtime)
    984984!            ******
    985985
    … …  
    996996! Soil optical properties
    997997! =============================
    998 !Etienne: as in inlandis we do not call vgopt, we need to define
     998!Etienne: as in inlandis we do not CALL vgopt, we need to define
    999999!the albedo alb_SV and to calculate the
    10001000!absorbed Solar Radiation by Surfac (Normaliz)[-] SoSosv
    … …  
    10251025 
    10261026!            **********
    1027 ! #ve   call SISVAT_wEq('SnOptP',0)
     1027! #ve   CALL SISVAT_wEq('SnOptP',0)
    10281028!            **********
    10291029
    … …  
    10831083      if (iflag_temp_inlandsis == 0) then
    10841084
    1085        call SISVAT_TSo
     1085       CALL SISVAT_TSo
    10861086
    10871087      else
    … …  
    10901090        END DO
    10911091
    1092        call SISVAT_TS2
     1092       CALL SISVAT_TS2
    10931093
    10941094      end if
    … …  
    10961096
    10971097!            **********
    1098 ! #ve   call SISVAT_wEq('_TSo  ',0)
     1098! #ve   CALL SISVAT_wEq('_TSo  ',0)
    10991099!            **********
    11001100
    … …  
    11271127
    11281128!            **********
    1129         call SISVAT_qSn
     1129        CALL SISVAT_qSn
    11301130!            **********
    11311131
    11321132!            **********
    1133 ! #ve   call SISVAT_wEq('_qSn  ',0)
     1133! #ve   CALL SISVAT_wEq('_qSn  ',0)
    11341134!            **********
    11351135
    … …  
    11681168
    11691169!            **********
    1170         call SISVAT_qSo
     1170        CALL SISVAT_qSo
    11711171! #m0.                 (Wats_0,Wats_1,Wats_d)
    11721172!            **********
    … …  
    12391239      if(isnoSV(1)>=1) then
    12401240C +          **********
    1241       call SISVAT_GSn
     1241      CALL SISVAT_GSn
    12421242C +          **********
    12431243      endif
    12441244      else
    12451245C +          **********
    1246         call SISVAT_GSn
     1246        CALL SISVAT_GSn
    12471247C +          **********
    12481248      endif

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_bsn.F

    r3900 r5103  
    11 
    22 
    3       subroutine SISVAT_BSn
     3      SUBROUTINE SISVAT_BSn
    44 
    55C +------------------------------------------------------------------------+

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_gsn.F

    r5082 r5103  
    11 
    2       subroutine SISVAT_GSn
     2      SUBROUTINE SISVAT_GSn
    33 
    44C +------------------------------------------------------------------------+
    … …  
    296296C +  ====
    297297 
    298       data       vector/.true./               ! Vectorization  Switch
     298      data       vector/.TRUE./               ! Vectorization  Switch
    299299      data       vdent1/ 0.5e8/               ! Wet Snow Metamorphism
    300300cXF                      tuned for Greenland (2.e8=old value)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_qsn.F

    r5082 r5103  
    11 
    22 
    3       subroutine SISVAT_qSn
     3      SUBROUTINE SISVAT_qSn
    44     .                     (
    55! #e1.                      EqSn_0,EqSn_1,EqSn_d

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_qso.F

    r3792 r5103  
    11 
    22 
    3       subroutine SISVAT_qSo
     3      SUBROUTINE SISVAT_qSo
    44! #m0.                     (Wats_0,Wats_1,Wats_d)
    55 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_sno_albedo.F

    r5082 r5103  
    1       subroutine SnOptP(jjtime)
     1      SUBROUTINE SnOptP(jjtime)
    22 
    33C +------------------------------------------------------------------------+
    … …  
    464464        ! prescription for each time step with NEMO values
    465465       
    466 c #AO      if (LSmask(ikl) .eq. 0 .and. coupling_ao .eq. .true.) then
     466c #AO      if (LSmask(ikl) .eq. 0 .and. coupling_ao .eq. .TRUE.) then
    467467c #AO       if (AOmask(ikl) .eq. 0) then 
    468468c #AO       albisv(ikl) =  (1.-AOmask(ikl))* albAOsisv(ikl)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.F

    r5099 r5103  
    1       subroutine SISVAT_TS2                                                     
     1      SUBROUTINE SISVAT_TS2
    22c #ES.                     (ETSo_0,ETSo_1,ETSo_d)                               
    33                                                                               
    … …  
    475475      ENDDO
    476476
    477       end ! subroutine SISVAT_TS2 
     477      end ! SUBROUTINE SISVAT_TS2

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_tso.F

    r5099 r5103  
    33 
    44 
    5       subroutine SISVAT_TSo
     5      SUBROUTINE SISVAT_TSo
    66! #e1.                     (ETSo_0,ETSo_1,ETSo_d)
    77 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_weq.F

    r5082 r5103  
    11 
    22 
    3       subroutine SISVAT_wEq( labWEq ,istart)
     3      SUBROUTINE SISVAT_wEq( labWEq ,istart)
    44 
    55C +------------------------------------------------------------------------+
    … …  
    4848 
    4949      IF (.NOT.logWEq)                                              THEN
    50                logWEq = .true.
     50               logWEq = .TRUE.
    5151               open(unit=45,status='unknown',file='SISVAT_wEq.ve')
    5252               rewind    45

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_zag.F

    r3792 r5103  
    11 
    22 
    3       subroutine SISVAT_zAg
     3      SUBROUTINE SISVAT_zAg
    44     .                     (isagra,isagrb,WEagra
    55     .                     ,dzagra,dzagrb,T_agra,T_agrb

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_zcr.F

    r3792 r5103  
    11 
    22 
    3       subroutine SISVAT_zCr
     3      SUBROUTINE SISVAT_zCr
    44C +
    55C +------------------------------------------------------------------------+

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_zsn.F

    r5099 r5103  
    11 
    22 
    3       subroutine SISVAT_zSn
     3      SUBROUTINE SISVAT_zSn
    44 
    55C +------------------------------------------------------------------------+
    … …  
    231231 
    232232C +   ***************
    233       call SISVAT_zCr
     233      CALL SISVAT_zCr
    234234C +   ***************
    235235 
    … …  
    287287 
    288288C +     ***************
    289         call SISVAT_zAg
     289        CALL SISVAT_zAg
    290290     .                 (isagr1,isagr2,WEagre
    291291     .                 ,dzagr1,dzagr2,T_agr1,T_agr2
    … …  
    563563 
    564564C +   ***************
    565       call SISVAT_zCr
     565      CALL SISVAT_zCr
    566566C +   ***************
    567567 
    … …  
    629629 
    630630C +     ***************
    631         call SISVAT_zAg
     631        CALL SISVAT_zAg
    632632     .                 (isagr1,isagr2,WEagre
    633633     .                 ,dzagr1,dzagr2,T_agr1,T_agr2

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

    r5101 r5103  
    206206        IF (debut) THEN
    207207            firstcall = .TRUE.
    208             INI_SV = .false.
     208            INI_SV = .FALSE.
    209209        ELSE
    210             firstcall = .false.
    211             INI_SV = .true.
     210            firstcall = .FALSE.
     211            INI_SV = .TRUE.
    212212        END IF
    213213
    … …  
    10471047        ! Objet: Lecture du fichier de conditions initiales pour SISVAT
    10481048        !======================================================================
    1049         !    include "indicesol.h"
    1050 
    1051         !    include "dimsoil.h"
    10521049        include "clesphys.h"
    1053         include "thermcell.h"
    10541050        include "compbl.h"
    10551051
    … …  
    12841280        IMPLICIT none
    12851281
    1286         !    include "indicesol.h"
    1287         !    include "dimsoil.h"
    12881282        include "clesphys.h"
    1289         include "thermcell.h"
    12901283        include "compbl.h"
    12911284
Note: See TracChangeset for help on using the changeset viewer.