- Timestamp:
- 2021-08-16T14:46:45+02:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/cpl_oasis3.F90
r13443 r15196 319 319 !------------------------------------------------------------------ 320 320 WRITE(numout,*) "RSRH calling endef "; flush(numout) 321 321 322 322 CALL oasis_enddef(nerror) 323 323 WRITE(numout,*) "RSRH called endef "; flush(numout) -
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/sbccpl.F90
r15051 r15196 737 737 srcv(jpr_dummy_t)%clname = 'R_OC_DUMMY_T' 738 738 srcv(jpr_dummy_t)%laction = .FALSE. ! for test of reciept of taux/y only 739 739 ! rain 740 srcv(jpr_rain)%laction = .TRUE. 741 ! snow 742 srcv(jpr_snow)%laction = .TRUE. 743 ! wind 10m 744 ! srcv(jpr_w10m)%laction = .TRUE. 740 745 ! Set taux and tauy to be active or not 741 srcv(jpr_otx1)%laction = . FALSE. ! temporary until those variables are available in lfric trunk742 srcv(jpr_oty1)%laction = . FALSE. ! temporary until those variables are available in lfric trunk746 srcv(jpr_otx1)%laction = .TRUE. ! temporary until those variables are available in lfric trunk 747 srcv(jpr_oty1)%laction = .TRUE. ! temporary until those variables are available in lfric trunk 743 748 srcv(jpr_otx1:jpr_otz1)%clgrid = 'U' ! oce components given at U-point 744 749 srcv(jpr_otx2:jpr_otz2)%clgrid = 'V' ! and V-point 745 750 srcv(jpr_itx1:jpr_itz1)%clgrid = 'F' ! ice components given at F-point 746 747 751 ! Various settings necessary when we call coupling from what is essentially a 748 752 ! 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 1071 1075 ! actions to false for all fields apart from our test field(s) 1076 do jn = 1, nmaxfld 1077 if(ssnd(jn)%laction) then 1078 write(numout, *) jn, ssnd(jn)%clname,' Exchanged' 1079 endif 1080 enddo 1072 1081 ssnd(:)%laction = .FALSE. 1073 1074 1082 1075 1083 ssnd(jps_dummy_t)%clname = 'S_OC_DUMMY_T'
Note: See TracChangeset
for help on using the changeset viewer.