Ignore:
Timestamp:
Dec 19, 2025, 7:10:55 PM (12 days ago)
Author:
yann meurdesoif
Message:

remove checksum calls
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90

    r5958 r5989  
    325325      USE yoethf_mod_h
    326326      USE flux_arp_mod_h
    327       USE lmdz_checksum
    328327      IMPLICIT NONE
    329328!-------------------------------------------------------------------------
    … …  
    435434      INTEGER, dimension(klon, 6) :: n10mout
    436435
    437 !$gpum nocall checksum
    438       CALL checksum("u1", u1)
    439       CALL checksum("v1", v1)
    440       CALL checksum("t1", t1)
    441       CALL checksum("q1", q1)
    442       CALL checksum("z1", z1)
    443       CALL checksum("ts1", ts1)
    444       CALL checksum("qsurf", qsurf)
    445       CALL checksum("z0m", z0m)
    446       CALL checksum("z0h", z0h)
    447       CALL checksum("psol", psol)
    448       CALL checksum("pat1", pat1)
    449       CALL checksum("t_2m", t_2m)
    450       CALL checksum("q_2m", q_2m)
    451       CALL checksum("t_10m", t_10m)
    452       CALL checksum("q_10m", q_10m)
    453       CALL checksum("u_10m", u_10m)
    454       CALL checksum("ustar", ustar)
    455       CALL checksum("s_pblh", s_pblh)
    456       CALL checksum("prain", prain)
    457       CALL checksum("tsol", tsol)
    458436
    459437!-------------------------------------------------------------------------
    … …  
    776754      ENDDO
    777755!
    778       CALL checksum("u1", u1)
    779       CALL checksum("v1", v1)
    780       CALL checksum("t1", t1)
    781       CALL checksum("q1", q1)
    782       CALL checksum("z1", z1)
    783       CALL checksum("ts1", ts1)
    784       CALL checksum("qsurf", qsurf)
    785       CALL checksum("z0m", z0m)
    786       CALL checksum("z0h", z0h)
    787       CALL checksum("psol", psol)
    788       CALL checksum("pat1", pat1)
    789       CALL checksum("t_2m", t_2m)
    790       CALL checksum("q_2m", q_2m)
    791       CALL checksum("t_10m", t_10m)
    792       CALL checksum("q_10m", q_10m)
    793       CALL checksum("u_10m", u_10m)
    794       CALL checksum("ustar", ustar)
    795       CALL checksum("s_pblh", s_pblh)
    796       CALL checksum("prain", prain)
    797       CALL checksum("tsol", tsol)
    798756      RETURN
    799757      END subroutine stdlevvarn
Note: See TracChangeset for help on using the changeset viewer.