Changeset 8819 for branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2017-11-27T14:24:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8670 r8819 150 150 INTEGER, PARAMETER :: jps_bio_chloro = 36 ! MEDUSA chlorophyll surface concentration 151 151 INTEGER, PARAMETER :: jps_fmdice = 37 ! ice form drag 152 INTEGER, PARAMETER :: jpsnd = 37 ! total number of fields sent 152 INTEGER, PARAMETER :: jps_rough_ice_skin = 38 ! ice skin roughness length 153 INTEGER, PARAMETER :: jpsnd = 38 ! total number of fields sent 153 154 154 155 REAL(wp), PARAMETER :: dms_unit_conv = 1.0e+6 ! Coversion factor to get outgong DMS in standard units for coupling … … 164 165 END TYPE FLD_C 165 166 ! Send to the atmosphere ! 166 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2, sn_snd_cond, sn_snd_mpnd, sn_snd_sstfrz, sn_snd_thick1, sn_snd_ fmd167 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2, sn_snd_cond, sn_snd_mpnd, sn_snd_sstfrz, sn_snd_thick1, sn_snd_icerough 167 168 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro 168 169 … … 242 243 !! 243 244 NAMELIST/namsbc_cpl/ sn_snd_temp, sn_snd_alb , sn_snd_thick , sn_snd_crt , sn_snd_co2, & 244 & sn_snd_cond, sn_snd_mpnd , sn_snd_sstfrz, sn_snd_thick1, sn_snd_ fmd,&245 & sn_snd_cond, sn_snd_mpnd , sn_snd_sstfrz, sn_snd_thick1, sn_snd_icerough,& 245 246 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 246 247 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , sn_rcv_iceflx, & … … 315 316 WRITE(numout,*)' meltponds fraction & depth = ', TRIM(sn_snd_mpnd%cldes ), ' (', TRIM(sn_snd_mpnd%clcat ), ')' 316 317 WRITE(numout,*)' sea surface freezing temp = ', TRIM(sn_snd_sstfrz%cldes ), ' (', TRIM(sn_snd_sstfrz%clcat ), ')' 317 WRITE(numout,*)' ice formdrag = ', TRIM(sn_snd_ fmd%cldes ), ' (', TRIM(sn_snd_fmd%clcat ), ')'318 WRITE(numout,*)' ice formdrag = ', TRIM(sn_snd_icerough%cldes ), ' (', TRIM(sn_snd_icerough%clcat ), ')' 318 319 319 320 WRITE(numout,*)' nn_cplmodel = ', nn_cplmodel … … 875 876 ! ! ------------------------- ! 876 877 ssnd(jps_fmdice )%clname = 'OIceFmd' 877 SELECT CASE ( TRIM( sn_snd_fmd%cldes ) ) 878 ssnd(jps_rough_ice_skin )%clname = 'ORghIcSk' 879 SELECT CASE ( TRIM( sn_snd_icerough%cldes ) ) 878 880 CASE ( 'none' ) 879 881 ssnd(jps_fmdice)%laction = .FALSE. 882 ssnd(jps_rough_ice_skin)%laction = .FALSE. 880 883 CASE ( 'ice', 'weighted ice' ) 881 884 ssnd(jps_fmdice)%laction = .TRUE. 882 CASE default ; CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' ) 885 ssnd(jps_rough_ice_skin)%laction = .TRUE. 886 CASE default ; CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_icerough%cldes' ) 883 887 END SELECT 884 888 ! … … 2640 2644 #if defined key_cice 2641 2645 IF( ssnd(jps_fmdice)%laction ) THEN 2642 SELECT CASE( sn_snd_ fmd%cldes )2646 SELECT CASE( sn_snd_icerough%cldes ) 2643 2647 CASE( 'ice' ) 2644 2648 ztmp1(:,:) = fmdice(:,:) 2645 2649 CASE( 'weighted ice' ) 2646 2650 ztmp1(:,:) = fmdice(:,:) * fr_i(:,:) 2647 CASE default ; CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_ fmd%cldes' )2651 CASE default ; CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_icerough%cldes' ) 2648 2652 END SELECT 2649 2653 ENDIF 2650 2654 IF( ssnd(jps_fmdice)%laction ) CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2655 2656 IF( ssnd(jps_rough_ice_skin)%laction ) THEN 2657 SELECT CASE( sn_snd_icerough%cldes ) 2658 CASE( 'ice' ) 2659 ztmp1(:,:) = rough_ice_skin(:,:) 2660 CASE( 'weighted ice' ) 2661 ztmp1(:,:) = rough_ice_skin(:,:) * fr_i(:,:) 2662 CASE default ; CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_icerough%cldes' ) 2663 END SELECT 2664 ENDIF 2665 IF( ssnd(jps_rough_ice_skin)%laction ) CALL cpl_snd( jps_rough_ice_skin, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2651 2666 #endif 2652 2667 !
Note: See TracChangeset
for help on using the changeset viewer.