Changeset 6738
- Timestamp:
- 2016-06-24T15:16:35+02:00 (9 years ago)
- 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 1041 1041 REAL(wp), POINTER, DIMENSION(:,:) :: ztx, zty, zmsk, zemp, zqns, zqsr 1042 1042 !!---------------------------------------------------------------------- 1043 1044 ! RSRH temporary arrays for testing, just to recieve incoming MEDUSA related fields1045 ! until we know where they need to go.1046 REAL(wp), ALLOCATABLE :: atm_pco2(:,:)1047 REAL(wp), ALLOCATABLE :: atm_dust(:,:)1048 1049 1043 ! 1050 1044 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_rcv')
Note: See TracChangeset
for help on using the changeset viewer.