Changeset 15196 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3

Timestamp:

2021-08-16T14:46:45+02:00 (3 years ago)

Author:

andmirek

Message:

Add wind stress rain and snow to tohe coupling fields

Location:

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC

Files:

• cpl_oasis3.F90 (modified) (1 diff)
• sbccpl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/cpl_oasis3.F90

@@ -319 +319 @@
       !------------------------------------------------------------------
        WRITE(numout,*) "RSRH calling endef "; flush(numout)
-      
+
       CALL oasis_enddef(nerror)
        WRITE(numout,*) "RSRH called endef "; flush(numout)

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

@@ -737 +737 @@
          srcv(jpr_dummy_t)%clname = 'R_OC_DUMMY_T'   
          srcv(jpr_dummy_t)%laction = .FALSE. ! for test of reciept of taux/y only
-
+         ! rain
+         srcv(jpr_rain)%laction = .TRUE.
+         ! snow
+         srcv(jpr_snow)%laction = .TRUE.
+         ! wind 10m
+!        srcv(jpr_w10m)%laction = .TRUE.
          ! Set taux and tauy to be active or not
-         srcv(jpr_otx1)%laction = .FALSE.             ! temporary until those variables are available in lfric trunk
-         srcv(jpr_oty1)%laction = .FALSE.             ! temporary until those variables are available in lfric trunk
+         srcv(jpr_otx1)%laction = .TRUE.             ! temporary until those variables are available in lfric trunk
+         srcv(jpr_oty1)%laction = .TRUE.             ! temporary until those variables are available in lfric trunk
          srcv(jpr_otx1:jpr_otz1)%clgrid  = 'U'        ! oce components given at U-point
          srcv(jpr_otx2:jpr_otz2)%clgrid  = 'V'        !           and           V-point
          srcv(jpr_itx1:jpr_itz1)%clgrid  = 'F'        ! ice components given at F-point
-
          ! Various settings necessary when we call coupling from what is essentially a
          ! stand alone ocean model, i.e. when ln_cpl is still false.
@@ -1070 +1074 @@
          ! If we're just running a test coupled job then set all 
          ! actions to false for all fields apart from our test field(s)
+         do jn = 1, nmaxfld
+            if(ssnd(jn)%laction) then
+             write(numout, *) jn, ssnd(jn)%clname,' Exchanged'
+            endif
+         enddo
          ssnd(:)%laction = .FALSE.
-
 
          ssnd(jps_dummy_t)%clname = 'S_OC_DUMMY_T'