- Timestamp:
- 2021-01-08T11:40:09+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/sbccpl.F90
r13443 r14279 2646 2646 IF ( ssnd(jps_dummy_t)%laction ) THEN 2647 2647 ! RSRH Just set up some arbitrary test pattern for now 2648 ztmp1(:,:) = 1.23456 2648 DO jj = 1, jpj 2649 DO ji = 1, jpi 2650 ztmp1(ji,jj) = kt + (glamt(ji,jj) * gphit(ji,jj)) 2651 ENDDO 2652 ENDDO 2649 2653 WRITE(numout,*) "RSRH call send for ocean dummy_t"; flush(numout) 2650 2654 CALL cpl_snd( jps_dummy_t, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )
Note: See TracChangeset
for help on using the changeset viewer.