Ignore:
Timestamp:
Jun 13, 2025, 6:10:13 PM (6 weeks ago)
Author:
yann meurdesoif
Message:

Convection GPU porting : set convection subroutines into module

Files will be renamed later to *_mod.f90

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90

    r5491 r5692  
    11
    22! $Id$
     3MODULE cv3p1_closure_mod
     4PRIVATE
     5PUBLIC cv3p1_closure
     6CONTAINS
    37
    48SUBROUTINE cv3p1_closure(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, &
     
    2428  USE print_control_mod, ONLY: prt_level, lunout
    2529  USE yomcst_mod_h
     30  USE cv3_cine_mod, ONLY : cv3_cine
     31  USE cv3_buoy_mod, ONLY : cv3_buoy
    2632IMPLICIT NONE
    2733
     
    772778END SUBROUTINE cv3p1_closure
    773779
    774 
     780END MODULE cv3p1_closure_mod
     781
Note: See TracChangeset for help on using the changeset viewer.