Changeset 12099


Ignore:
Timestamp:
2019-12-06T17:13:18+01:00 (8 months ago)
Author:
laurent
Message:

Tiny fix for AGRIF to compile…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

    r12064 r12099  
    375375      IF( kt == nit000 ) THEN 
    376376         WRITE(numout,*) '' 
     377#if defined key_agrif 
     378         WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ===' 
     379#else 
    377380         ztmp = SUM(tmask(:,:,1)) ! number of ocean points on local proc domain 
    378381         IF( ztmp > 8._wp ) THEN ! test only on proc domains with at least 8 ocean points! 
     
    395398         END IF 
    396399         WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ===' 
     400#endif 
    397401         WRITE(numout,*) '' 
    398402      END IF !IF( kt == nit000 ) 
    399  
    400403      !                                            ! compute the surface ocean fluxes using bulk formulea 
    401404      IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m ) 
Note: See TracChangeset for help on using the changeset viewer.