Ignore:
Timestamp:
Nov 27, 2025, 6:44:57 PM (5 weeks ago)
Author:
yann meurdesoif
Message:

GPU port of surf_seaice

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/surf_seaice_mod.F90

    r5868 r5889  
    3131#endif               
    3232         &      )
     33!$gpum horizontal knon klon
    3334
    3435  USE dimphy
    … …  
    150151!****************************************************************************************
    151152    IF (type_ocean == 'couple') THEN
    152        
     153!$gpum nocall       
    153154       CALL ocean_cpl_ice( &
    154155            rlon, rlat, swnet, lwnet, alb1, &
    … …  
    165166       
    166167    ELSE IF (type_ocean == 'slab'.AND.version_ocean=='sicINT') THEN
     168!$gpum nocall 
    167169       CALL ocean_slab_ice( &
    168170          itime, dtime, jour, knon, knindex, &
    … …  
    176178
    177179      ELSE ! type_ocean=force or slab +sicOBS or sicNO
     180
    178181       IF (is_master) WRITE(lunout,*) "******* CHECKSUM  ==> ocean_forced IN *******"
     182!$gpum nocall checksum
    179183       CALL checksum("itime", itime)
    180184       CALL checksum("dtime", dtime)
Note: See TracChangeset for help on using the changeset viewer.