Changeset 14279

Timestamp:

2021-01-08T11:40:09+01:00 (3 years ago)

Author:

frrh

Message:

Add pattern to exchg field

File:

• NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/sbccpl.F90

@@ -2646 +2646 @@
       IF ( ssnd(jps_dummy_t)%laction ) THEN
          ! RSRH Just set up some arbitrary test pattern for now
-         ztmp1(:,:) = 1.23456
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               ztmp1(ji,jj) = kt + (glamt(ji,jj) * gphit(ji,jj))
+            ENDDO
+         ENDDO
       WRITE(numout,*) "RSRH call send for ocean dummy_t"; flush(numout)
          CALL cpl_snd( jps_dummy_t, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )