New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12803 for NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/SBC/cpl_oasis3.F90 – NEMO

Ignore:
Timestamp:
2020-04-23T10:57:49+02:00 (4 years ago)
Author:
dancopsey
Message:

Merge in NEMO_4.0.1_GC_couple_pkg

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/SBC/cpl_oasis3.F90

    r12801 r12803  
    4242   PUBLIC   cpl_freq 
    4343   PUBLIC   cpl_finalize 
     44    
    4445 
    4546   INTEGER, PUBLIC            ::   OASIS_Rcv  = 1    !: return code if received field 
    … …  
    8687 
    8788   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   exfld   ! Temporary buffer for receiving 
    88  
     89       
    8990   !!---------------------------------------------------------------------- 
    9091   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    … …  
    448449                     WRITE(numout,*) '     -     Sum value is ',    SUM(pdata(nldi:nlei,nldj:nlej,jc)) 
    449450                     WRITE(numout,*) '****************' 
     451                     CALL FLUSH(numout) 
    450452                  ENDIF 
    451453                   
    … …  
    519521         CALL oasis_get_freqs(id,      1, itmp, info) 
    520522#endif 
    521          cpl_freq = itmp(1) 
     523         cpl_freq = itmp(1)  
    522524      ENDIF 
    523525      ! 
Note: See TracChangeset for help on using the changeset viewer.