Ignore:
Timestamp:
Jul 25, 2024, 8:45:50 AM (6 months ago)
Author:
abarral
Message:

Correct various minor mistakes from previous commits

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5118 r5123  
    14861486                                                                                                                                                                                                                                                                                                                                    DO i = 1, klon
    14871487                                                                                                                                                                                                                                                                                                                                      IF (tnondef(i, k, iff - 6).NE.missing_val) THEN
    1488                                                                                                                                                                                                                                                                                                                                         IF (
    1489                                                                                                                                                                                                                                                                                                                                           freq_outNMC(iff-6).LT.0) THEN
     1488                                                                                                                                                                                                                                                                                                                                        IF (                                                                                                                                                                                                                                                                                                                                          freq_outNMC(iff-6).LT.0) THEN
    14901489                                                                                                                                                                                                                                                                                                                                          freq_moyNMC(iff-6) =(mth_len*un_jour)/freq_calNMC(iff-6)
    14911490                                                                                                                                                                                                                                                                                                                                          ELSE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

    r5117 r5123  
    33
    44MODULE iophy
     5    USE lmdz_abort_physic, ONLY: abort_physic
    56
    67! abd  REAL,PRIVATE,ALLOCATABLE,DIMENSION(:),save :: io_lat
    … …  
    809810    USE lmdz_print_control, ONLY: prt_level,lunout
    810811    USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat
    811     USE lmdz_abort_physic, ONLY: abort_physic
    812812
    813813    IMPLICIT NONE
    … …  
    955955  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    956956  USE lmdz_print_control, ONLY: lunout, prt_level
    957   USE lmdz_abort_physic, ONLY: abort_physic
    958957
    959958  IMPLICIT NONE
    … …  
    11681167  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    11691168  USE lmdz_print_control, ONLY: prt_level,lunout
    1170   USE lmdz_abort_physic, ONLY: abort_physic
    11711169
    11721170  IMPLICIT NONE
    … …  
    13651363  USE lmdz_xios, ONLY: xios_send_field
    13661364  USE lmdz_print_control, ONLY: prt_level,lunout
    1367   USE lmdz_abort_physic, ONLY: abort_physic
    13681365
    13691366  IMPLICIT NONE
    … …  
    14491446  USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, grid_type, unstructured
    14501447  USE lmdz_print_control, ONLY: prt_level,lunout
    1451   USE lmdz_abort_physic, ONLY: abort_physic
    14521448
    14531449  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/limit_read_mod.F90

    r5116 r5123  
    170170    USE phys_cal_mod, ONLY: calend, year_len
    171171    USE lmdz_print_control, ONLY: lunout, prt_level
    172     USE lmdz_xios, ONLY: xios_recv_field, using_xiosw
     172    USE lmdz_xios, ONLY: xios_recv_field, using_xios
    173173    USE lmdz_abort_physic, ONLY: abort_physic
    174174   

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_main.F90

    r5117 r5123  
    77CONTAINS
    88
    9   SUBROUTINE thermcell_main
    10     (itap, ngrid, nlay, ptimestep  &
     9  SUBROUTINE thermcell_main(itap, ngrid, nlay, ptimestep  &
    1110            , pplay,pplev, pphi, debut  &
    1211            , puwind, pvwind,ptemp, p_o, ptemp_env, po_env  &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_old.F90

    r5119 r5123  
    11MODULE lmdz_thermcell_old
     2      USE lmdz_abort_physic, ONLY: abort_physic
     3
    24CONTAINS
    35
    … …  
    1012    USE lmdz_thermcell_dv2, ONLY: thermcell_dv2
    1113    USE lmdz_thermcell_dq, ONLY: thermcell_dq
    12     USE lmdz_abort_physic, ONLY: abort_physic
    1314    IMPLICIT NONE
    1415

  • LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

    r5117 r5123  
    256256  !****************************************************************************************
    257257
    258   SUBROUTINE pbl_surface
    259     ( &
     258  SUBROUTINE pbl_surface( &
    260259            dtime, date0, itap, jour, &
    261260            debut,     lafin, &
    … …  
    41864185  !****************************************************************************************
    41874186
    4188   SUBROUTINE pbl_surface_final
    4189     (fder_rst, snow_rst, qsurf_rst, ftsoil_rst &
     4187  SUBROUTINE pbl_surface_final(fder_rst, snow_rst, qsurf_rst, ftsoil_rst &
    41904188#ifdef ISO
    41914189       ,xtsnow_rst,Rland_ice_rst &
    … …  
    42594257
    42604258  !albedo SB >>>
    4261   SUBROUTINE pbl_surface_newfrac
    4262     (itime, pctsrf_new, pctsrf_old, &
     4259  SUBROUTINE pbl_surface_newfrac(itime, pctsrf_new, pctsrf_old, &
    42634260            evap, z0m, z0h, agesno, &
    42644261            tsurf, alb_dir, alb_dif, ustar, u10m, v10m, tke &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90

    r5119 r5123  
    986986    ! computes the divergence of a vector field of components
    987987    ! x,y. x and y being covariant components
     988    USE lmdz_ssum_scopy, ONLY: ssum
     989
    988990    IMPLICIT NONE
    989991
    … …  
    9981000    REAL :: aiy1(nbp_lon + 1), aiy2(nbp_lon + 1)
    9991001    REAL :: sumypn, sumyps
    1000     REAL, EXTERNAL :: SSUM
    10011002
    10021003    iim = nbp_lon

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

    r5117 r5123  
    77  !****************************************************************************************
    88
    9   SUBROUTINE surf_landice
    10     (itime, dtime, knon, knindex, &
     9  SUBROUTINE surf_landice(itime, dtime, knon, knindex, &
    1110            rlon, rlat, debut, lafin, &
    1211            rmu0, lwdownm, albedo, pphi1, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

    r5117 r5123  
    99  !******************************************************************************
    1010
    11   SUBROUTINE surf_ocean
    12     (rlon, rlat, swnet, lwnet, alb1, &
     11  SUBROUTINE surf_ocean(rlon, rlat, swnet, lwnet, alb1, &
    1312            windsp, rmu0, fder, tsurf_in, &
    1413            itime, dtime, jour, knon, knindex, &
Note: See TracChangeset for help on using the changeset viewer.