Changeset 6738


Ignore:
Timestamp:
2016-06-24T15:16:35+02:00 (4 years ago)
Author:
frrh
Message:

Remove temporary array declarations used only in testing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GSI7_GSI8_landice_bitcomp_medusa/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r6687 r6738  
    10411041      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty, zmsk, zemp, zqns, zqsr 
    10421042      !!---------------------------------------------------------------------- 
    1043  
    1044       ! RSRH temporary arrays for testing, just to recieve incoming MEDUSA related fields 
    1045       ! until we know where they need to go. 
    1046       REAL(wp), ALLOCATABLE :: atm_pco2(:,:) 
    1047       REAL(wp), ALLOCATABLE :: atm_dust(:,:) 
    1048  
    10491043      ! 
    10501044      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv') 
Note: See TracChangeset for help on using the changeset viewer.